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ABSTRACT 


THIS DIAGNOSTIC HAS BEEN MODIFIES FOR TESTING THE DRS^EA 
interface ON SYSTEMS THAT HAVE A traditional PDP*8 processor 
WITH A 0W8/E BUS CONVERTER, 

THIS PROGRAM IS A DIAGNOSTIC A^D EXERCISER FOR THE 
QR8-EA 12 CHANNEL BUFFERED DIGITAL INTERFACE, ALL 
FUNCTIONS ARE TESTED AND errors ARE REPORTED BY HALTS 
and/or error typeouts, 

2, requirements 

2.1 EQUIPMENT 

TRADITIONAL RDM COMPUTER WITH 4K OF CORE 
ASR®33 TELETYPE COR EQUIVALENT) 

DW8/E BUS CONVERTER 
DRBwEA WITH Test cable 

2.2 STORAGE 

THE PROGRAM USES LOCATIONS 0000*4121 
3 e LOADING PROCEDURE 

THE STANDARD PROCEDURE FOR LOADING BINARY TAPES SHOULD 
8E USED. 

4, starting PROCEDURE 

4.1 STARTING ADDRESS 

200-INPUT DEVICE CONFIGURATION 
201«ST-ART HW STANDARD CONFIGURATION 

4.2 SWITCH SETTINGS 

FOR EITHER STARTING ADDRESS » NORMAL SETTING IS SR0»SR11« 

0 (DOWN), 

4.3 PROGRAM AND/OR OPERATOR ACTION 

LOAD PROGRAM INTO -MEMORY 

SET SWITCH REGISTER TO DESIRED STARTING ADDRESS 
LOAD ADDRESS 
CLEAR SWITCHES 
PRESS CLEAR AND CONTINUE 



4.3.1 FOP STARTING ADDRESS 200 

THE PROGRAM WILL TYPE "SET SR FOR DEVICE CODE AND CONT" 

AND THEN HALT, 

SET SWITCHES TO 300X WHERE X IS AN OCTAL 

NUMBER CORRESPONDING TO THE 3 LSB OF THE DEVICE SELECTOR CODE, 
E.G, IF DEVICE CODE IS 53, SET SR TO 0303, 

PRESS CONTINUE, 

PROGRAM WILL RESPOND BY TYPING 

"SET SR FOR INTERRUPT JUMPERS AND CONT" AND THEN HALT, 

SET SWITCHES FOR ALL INPUT REGISTER BITS JUMPERED TO INTERRUPT, 
PRESS CONTINUE. 

PROGRAM WILL RESPOND BY TYPING 

"SET SR FOR FLIPFLOP JUMPERS AND CONT" AND THEN HALT, 

SET SWITCHES FOR ALL INPUT REGISTER FLIPFLOPS, 

PRESS CONTINUE. 

PROGRAM WILL RESPOND BY TYPING 
"SET SR FOR RUN" AND THEN HALT, 

SET SWITCHES AS DESIRED, (REFER TO SECTION 5,1) 

PRESS CONTINUE, 

PROGRAM WILL BEGIN TEST EXECUTION 

4.3.2 FOR STARTING ADDRESS 201 


SET SWITCHES AS DESIRED, (REFER TO SECTION 5,1) 
DEPRESS CONTINUE, 

PROGRAM WILL BEGIN TEST EXECUTION 


v. 
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OPERATING PROCEDURE 

5.1 operational switch settings 

SR0sl„ SUPPRESS ERROR HALT 

SR1»1* SUPPRESS ERROR TYPEOUT 

SR2=1. LOOP ON CURRENT TEST 

SRSal, LOOP WITH CURRENT DATA 

SR4«1» SUPPRESS BELL OR TYPEOUT AT END OF PASS 

SR5=1, SUPPRESS ITERATIONS 

SR6si P ESCAPE TO NOT TEST ON ERROR 

5.2 PROGRAM AND/OR OPERATOR ACTION 

5»2«i.i WITH SWITCHES SET AS IN 4,2, THE PROGRAM WILL RUN ALL 

TESTS SEQUENTIALLY. EACH IOT TEST WILL BE REPEATED 4096 
TIMES, EACH DATA TEST WILL BE REPEATED 50 TIMES’, AFTER 
ALL TESTS HAVE BEEN COMPLETED* THE PROGRAM WILL TYPE M DR« 
AND START ALL TESTS AGAIN, 

IF AN ERROR OCCURSg THE PROGRAM WILL HALT AND TYPE AN 
APPROPRIATE ERROR MESSAGE (SEE SECTION 6 FOR DETAILS), 

5.2.1.2 WITH SR0el (UP). PROGRAM ACT I ON WILL BE AS IN 5,2.1.1* 
EXCEPT NO TYPEOUf WILL OCCUR,' 

5.2.1.3 WITH SR2sl(UP } PROGRAM ACTION WILL BE AS IN 

3,2, 1.1. EXCEPT NO TYPEOUT WILL OCCUR a THE ADDRESS OF THE 
FAILING Test will be displayed in THE COMPUTER AC, 

5.2.1.4 with SR4 = 1(UP) s PROGRAM ACTION WILL BE AS IN 5.2',l*.l EXCEPT 
NO END OF PASS TYPEOUT WILL OCCUR, 

5.2.1.5 WITH SR5®1 (UP)« EACH TEST WILL BE EXECUTED ONLY ONCE, 

INSTEAD of typing w DR”. the program will ring the tty bell 

5.2.1.6 WITH SR0sl AND SR6si, PROGRAM ACtlON WILL BE AS |N 5',2,l’, 1 
IF NO ERRORS OCCUR. 

IF AN ERROR OCCURS^ THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE AND IHMEDIATLY TERMINATE ITERATIONS OF THE 
FAILING TEST, THE"PROGRAM WILL THEN START THE NEXT TEST 
IN SEQUENCE, 




errors 

normal operation 

IF AN ERROR OCCURS WITH SWITCHES SET AS IN 4,2, THE PROGRAM 
WILL TYPE AN APPROPRIATE ERROR MESSAGE (WITH DATA IF APP» 
LICABLE) AND HALT. 

THE FORMAT OF THE ERROR TYPEOUT IS 

XXXX MESSAGE 

HEADER FOR DATA (IF APPLICABLE) 

DATA (IF APPLICABLE) 

WHERE XXXX= ADDRESS OF JMS TO ERROR ROUTINE IN TESf fHAT FAILED, 
ERROR RECOVERY 

SET SR6si(UP> TO ESCAPE TO NEXT TEST, PRESS CONTINUE, • 

ERROR LOOP HOTS) 

SET SR0sl TO SUPPRESS HALT 

SET SRlsi TO SUPPRESS TYPEOUT 

SET SR2si TO LOOP ON CURRENT FAILING TEST 

ERROR LOOP (DATA) 

SAME AS 6,3 EXCEPT USE SR3 INSTEAD OF SR2 TO LOOP WITH CURRENT 

DATA, 

RESTRICTIONS 

STARTING RESTRICTIONS 

TEST JUMPER CABLE MUST BE INSTALLED, 

ANY FLOATING INPUTS TO INPUT REGISTER SHOULD BE 
GROUNDED, OR ERRORS MAY OCCUR, 

OPERATING RESTRICTIONS 

NONE 





) 


5 1 MISCELLANEOUS 

8.1 EXECUTION TIME 

EXECUTION TIME IS APPROX IMATELY 9 MINUTES FOR FULL ITERATION 
AND APPROXIMATELY 10 SECONDS WITH ITERATIONS SUPPRESSED, 

9, PROGRAM DESCRIPTION 

THE DR8-EA IS A TEST OF ALL FUNCTIONS OF THE INTERFACE, 

THE PROGRAM SEQUENCE IS AS FOLLOWS S 

ALL BASIC I Of TESTS ARE EXECUTED 4096.TIMES, 

ALL OUTPUT REGISTER FUNCTIONS ARE TESTED WITH BINARY COUNT PATTERNS, 
ALL INPUT REGISTER FUNCTIONS are TESTED USING BINARY COUNT PATTERNS 
INTERACTION BETWEEN INPUT AND OUTPUT REGISTERS IS TESTED FOR 
WITH BINARY COUNT PATTERNS, 

all skips and interrupts are tested using binary count patterns, 


10 . 


LISTING 





•H® •* 


f 






/KASNDe038«*DGDRA = A DR8®EA DIAGNOSTIC FOR TRADITIONAL POPS P 


) 


PAL10 V142 


17»JUL°7S 


16*3.9 PAGE i 


■M 


/HAINDEC-08-DGORA.A DR8*EA DIAGNOSTIC FOR TRADITIONAL PDP8 PROCESS 
/WITH A DW8/E OMNIBUS CONVERTER 

/COPYRIGHT 1972,1973 DIGITAL EQUIPMENT CQRP»s MAYNARD, MASS 
/ 

/STARTING ADDRESS! 200«INPUT DEVICE CONFIGURATION 

/ 201f a USE STANDARD CONFIGURATION 

/ 

/SWITCH REGISTER OPTIONS 
/ 

/SR00 =1, SUPPRESS HALT ON ERRQR 

/SRB1 al. SUPPRESS ERROR TYPEOUT 
/SR02 =1, LOOP ON CURRENT TEST 

/SR03 at, LOOP WITH CURRENT DATA 
/SR04 at, SUPPRESS BELL AT END Of PASS 
/SR05 al, SUPPRESS ITERATIONS 
/SR06 si, ESCAPE TO NEXT TEST ON ERROR 
/ 

/INSTRUCTION DEFINITIONS 
/ 



3114 


MQLsDCA MQ 


4115 


MQAsJMS SIMMQA 


4046 


BSWaJMS SIMBSW 


4063 


CAFaJMS simcaf 


4076 


SRQsUMS simsrq 


4432 


DBE1 s JMS I KOBEI 


4433 


OBSK=JMS I XDBSK 


4434 


DBCI=JMS I XDBCI 


4435 


DBRJsJMS I XDBRI 


4436 


OBCO*jMS l XDBCO 


4437 


DBSO=JMS I XDBSO 


4440 


DBRQsjMS I XDBRO 




y 

/location equivalencies 


3026 


f 

MSTDGTaERADR+1 


3027 


LSTDGT=ERADR*2 

i 




/general variables 


0001 

*1 

f 

0001 

5402 


JMP I 2 


0010 

*10 


0010 

0000 

POINT!, 

0 


3020 

«20 


0020 

0000 

CNTRli 

0 

0021 

0000 

DATAl# 

0 

0022 

3000 

DATA2, 

3 

0023 

0000 

DATA3, 

0 

0024 

0003 

DATA4, 

0 

0025 

0000 

DATA5, 

3 

0026 

7777 

IJUMPE, 

7777 /INTERRUPT 

0027 

7777 

F JUMPS, 

7777 /FLIPFLQP 

0030 

0000 

TYPFLG, 

0 



/MAINDEC«08-DGDRA*A DR8*EA DIAGNOSTIC FOR TRADITIONAL PDP8 P PAL10 
0031 0000 LPCNT i 0 


/ 

/INDIRECT POINTERS 
/ 


0032 

0266 

XDBEI. 

DBEIX 





0333 

3273 

XDBSK» 

CBSKX 





0034 

0300 

XDBCI i 

DBCIX 





0035 

0305 

XDBR1 1 

OBRIX 





0036 

0312 

XDBCOj 

DBCOX 





0037 

0317 

XD8SQ, 

DBSOX 





0040 

0324 

XDBRO? 

DBROX 





0041 

3203 

XPRINTi 

print 





3342 

3251 

XTYPEi 

TYPE 





0043 

2600 

XERRGR, 

ERROR 





0044 

2667 

XLOOP1# 

LOOP1 





0345 

2712 

XL00P2# 

L00P2 





0046 

0000 

SI MBSW * 

0 





0047 

3113 


DCA 


TYE1 



0050 

7012 


RTR 





0051 

7012 


RTR 





0052 

7012 


RTR 





0053 

1113 


TAO 


TYE1 



0054 

0062 


AND 


K7700 



0055 

ills 


TAD 


TYE1 



0056 

7006 


RTL 





0057 

7006 


RTL 





0060 

7006 


RTL 





0061 

5446 


JMP I 

SIM8SW 



0062 

7700 

K7700, 

7700 





0063 

0000 

SIMCAF. 

0 





0064 

6002 


I OF 





0065 

7240 


CLA CMA 




0066 

4434 


DBCI 





0067 

7410 


SKP 





0070 

7402 


hlt 



/DBCI 

skipped 

0071 

4436 - 


DBCO 





0072 

7410 


SKP 





0073 

7402 


HLT 



/DBCO 

skipped 

0074 

7300 


CLA CLL 




0075 

5463 


JMP I 

SIMCAF 



0076 

0000 

j 

SIMSRQi 

0 





0077 

3113 


DCA 


TYE1 



0100 

1177 


TAD 


(RETURN 



3101 

3002 


DCA 


2 



0102 

6001 


ION 





0103 

7000 


NOP 





0104 

6002 


I OF 



/NO INTERRUPT 

0105 

7410 


SKP 





0106 

2076 

return? 

ISZ 


SIMSRQ 



0107 

7324 


CLA CLL 

CML RAL 



0110 

3002 


OCA 


2 



0111 

1113 


TAD 


TYE1 
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/MAINDEC-'ZB-DSDRA-A DRSsEA D1AGN0S' 


for TRADITIONAL PDP8 P 


0112 

5476 


JMP l 

SIMSRQ 


0113 

0000 

■ TYE1« 

.0 




0114 

0000 

MQ ? 

0 




2115 

51000 

SI MMQ A» 

0 




2116 

3113 


DC A 


TYEi 


0117 

1113 


TAD 


TYEi 


0123 

7040 


CMA 




0121 

3114 


AND 


HQ 


0122 

1113 


TAD 


TYEI 


0123 

5515 

/ 

JMP I 

SfMMQA 





/ 

/TEST 

i 

INITIALIZATION 



0200 

©200 

f 




0200 

5202 


JMP 


START! 


0201 

5244 


JMP 


START2 


0202 

4063 

START!? 

CAF 



/CLEAR ALL FLAGS 

0203 

4441 


JMS l 


XPRINT 

/TYPE "SET SR FOR DEVICE 

0234 

3377 


Mi«l 



/CODE AND CQNT" 

0205 

7402 


HLT " 



/halt for switches 

0206 

7604 


LAS 



/GET SWITCHES 

0207 

0377 


AND 


a 

/MASK DEVICE CODE 

0210 

7106 


CL.L RTL 


/POSITION BITS 

0241 

70.04 


RAL 




0212 

1376 


TAD 


t ©5.00 

/GENERATE BASIC 10? 

0213 

3247 


DCA 


I OTS 

/SAVE basic iot 

0214 

4441 


JMS I 


XPRIAlT 

/TYPE "SET SR FOR JUMPERS 

0215 

3422 


M2*l 



/AND CONT" 

0216 

7402 


HLT 



/HALT FOR SWITCHES 

0217 

7604 


LAS 



/GEt SWITCHES 

0220 

3026 


DCA 


I JUMPER 

/SAVE JUMPER MASK 

0221 

4441 


JMS I 


xprint 


0222 

3444 


M2A*1 




0223 

7402 


HLT 




0224 

7604 


LAS 




0225 

3027 


DCA 


FJUMPER 


0226 

1375 


TAD 


C ®10 

>8 IOTS WILL BE 

0227 

3020 


DCA 


CNTR1 

/SET UP 

0230 

1260 


TAD 


DIOT 

/STORE INSTRUCTION FOR 

0231 

3233 


CCA 


PNTRi 

/IOT SET UP 

0232 

1247 


TAD 


I OTS 

/GET IOT 

0233 

0000 

PNTRI* 

0 



/STORE If 

0234 

2233 


ISZ 


PNTRI 

/PREPARE TO STORE 

0235 

2247 


isz 


tors 

/NEXT IOT 

0236 

2020 


isz 


CNTRi 


0237 

5232 


JMP 


PNTRl^l 


024 0 

4441 


JMS I 


XPRINT 

/TYPE "SET SR FOR RUN 

0241 

3475 


M3«l 



/AND CON? 

0242 

7402 


HLT 



/HALT FOR SWITCHES 

0243 

7300 


CLA CLl. 



0244 

3030 

START2? 

DCA 


TYPFLG 

/CLEAR ERROR FLAG 

0245 

5646 


JMP I 


.+1 

/GO TO FIRST TEST 


/CLEAR TYPE FLAG 
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0246 0400 


INIT1 


/ 

/INITIALIZATION CONSTANTS AND VARIABLES 


/ 


0247 

0000 

IOTS, 

3 

0250 

3262 

TIOTi 

DBDIX+1 

0251 

0267 


DBEIX+1 

0252 

0274 


DBSKX+1 

0253 

0301 


DBCIX+1 

0254 

0306 


DBRIX+1 

0255 

3313 


DBCOX+1 

0256 

0320 


DBSOX+1 

0257 

0325 


DBROX+1 

0260 

3650 

DIOT, 

DCA I TIOT 


/ 

/IOT SUBROUTINES 
/ 

/DISABLE DATA BUFFER INTERRUPT <DBDI,65X0> 


/ 


0261 

0262 

0000 

6500 

DBDIX, 

0 

6500 


0263 

0264 

0265 

7410 

7402 

5661 


SKP 

HLT 

JMP I 

/TRAP FOR UNDESIRED 
/SKIPS 

DBDIX 




y 

/ENABLE 

y 

DATA buffer INTERRUPTS CDBEI.65X1,) 

0266 

0267 

0000 

6501 

DBEIX, 

/ 

0 

6501 


0270 

0271 

0272 

7410 

7402 

5666 


SKP 

hlt 

JMP I 
/ 

/Trap for undesired 

/SKIPS 

DBEIX 

0273 

0274 

0000 

6502 

DBSKX, 

/'SKIP ON DATA BUFFER INPUT FLAG <DBSK,65X2> 
0 

6502 

0275 

0276 

0277 

7410 

2273 

5673 


SKP 

ISZ 

JMP I 

DBSKX 

DBSKX 




/0S TO 
/TO IS 
/ 

3 

6533 

INPUT REGISTER CORRESPONDING 

IN AC CDBC1165X3) 

0300 

0301 

3000 

6503 

DBCIX, 


0302 

0303 

0334 

7410 

7402 

570P 


SKP 

HLT 

JMP I 

/TRAP FOR UNDESIRED 
/SKIPS 

DBCIX 
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/ 

/INPUT REGISTER TO AC <QBRli65X4S 
/ 
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0305 

0000 

DBRIX* 

0 


0306 

6504 


6504 


0307 

7410 


SKP 

/TRAP FOR UNDESIRED 

0310 

7402 


HLT 

/SKIPS 

0311 

5705 


JMP I 

DBR l X 




/ 

/ZEROS 

TO output register corresponding to 




/ONES 

IN AC (Q8CQp 65X5 5 

0312 

0000 

D8CQX« 

0 


0313 

6505 


6505 


0314 

7410 


SKP 

/TRAP FOR UNDESIRED 

0315 

7402 


HLT 

/SKIPS 

0316 

3712 


JMP I 

D8C0X 




/IS To 

OUTPUT REGISTER CORRESPONDING 




/TO IS 

jf 

IN AC (CBSOi65X6) 

0317 

0000 

DBSOX a 

f 

0 


0320 

65S6 


6506 


0321 

7410 


SKP 

/TRAP FOR UNDESIRED 

0322 

7402 


HLT 

/SKIPS 

0323 

5717 


JMP I 

DBSQX 




/JAM TRANSFER OUTPUT REGISTER To AC CD8R0 65X7! 
/ 

0324 

0000 

DBROXs 

e 

0 


0325 

6507 


6507 


0326 

7410 


SKP 

/TRAP FOR UNDESIRED 

0327 

7402 


HLT 

/SKIPS 

0330 

5724 


JMP I 

Q8RQX 

0375 

7770 




0376 

6500 




0377 

0007 





040S 

PAGE 






/IS OUT 
/ 

PUT REGISTER 

cleared by initialise? 


0400 

3030 

INIT1# DC A 

typflg 

/clear error flag 


0401 

3031 

DCA 

LPCNT 

/SET ITERATION COUNT TO 

4096(DECIMAL) 

0402 

4063 

C AF 


/INITIALIZE interface 


0 4C3 

4440 

DBRO 


/READ OUTPUT REGISTER 


0 4 fl 4 

3021 

DCA 

DATA1 

/SAVE REGISTER DATA 


04O5 

1021 

TAD 

DATA1 

/GET REGISTER DATA 


0406 

7650 

SNA CLA 


mS REGISTER CLEARED BY 

INITIALIZE 
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0407 

5214 


JMP 

.+5 

/DATA CORRECT, CONTINUE 

0410 

4443 


JMS I 

XERROR 

/NO, ERROR 

0411 

3645 


INI TIE* 

1 

/"OUTPUT REGISTER NOT CLEARED” 

0412 

3515 


DH1-1 


/"REGISTER DATA” 

0413 

7777 


*1 


/NUMBER OF WORDS TO BE OUTPUT 

0414 

4444 


JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

0415 

5202 


JMP 

» 

INIT1+2 

/LOOP ON CURRENT TEST 




/IS INPUT register 

J 

CLEARED by initialise? 

0416 

3030 

INIT2, 

/ 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

0417 

3031 


DCA 

LPCNT 

/SEf ITERATION COUNT TO 4096 (DECIMA|_) 

0420 

7410 


SKP 



0421 

4063 


CAF 


/INITIALISE INTERFACE 

0422 

4435 


DBRI 


/READ XNPUf REGISTER 

0423 

3021 


DCA 

DATA1 

/SAVE REGISTER DATA 

0424 

1021 


TAD 

DATA1 

/GET REGISTER DATA 

0425 

7650 


SNA CLA 


/WAS REGISTER cleared 

0426 

5233 


JMP 

>5 

/DATA CORRECT, CONTINUE 

0427 

4443 


JMS I 

XERROR 

/NO, ERROR 

0430 

3661 


INIT2E* 

1 

/”INPUT REGISTER NOT- CLEARED” 

0431 

3515 


DH1«1 


/"REGISTER DATA” 

0432 

7777 




/NUMBER OF WORDS TO BE OUTPUT 

0433 

4444 


JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

0434 

5221 


JMP 

1 

INIT2+3 

/LOOP ON CURRENT TESf 




/\s skip flag set 

j 

after Initialize 

0435 

3030 

1NIT3, 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

0436 

3031 


DCA 

LPCNT 

/SET ITERATION COUNT TO 4096(DECXMAL) 

0437 

7410 


SKP 



0440 

4063 


CAF 


/initialise interface 

0441 

4432 


QBEI 


/ENABLE INTERFACE INTERRUPTS 

0442 

4433 


DBSK 


/IS INTERFACE FLAG SET 

0443 

5250 


JMP 

»+5 

/FLAG Not SET, CONTINUE 

0444 

4443 


JMS I • 

XERROR 

/FLAG SET, ERROR 

0445 

3674 


IN1T3E* 

1 

/"SKIP FLAG SET” 

0446 

3514 


D'H0*1 


/NO data HEADER 

0447 

0000 


0 


/NO DATA 

0450 

4444 


JMS I 

XLOQP1 

/CHECK FOR LOOP ON CURRENT TESf 

0451 

5240 


JMP 

INIT3*3 

/LOOP ON CURRENT TEST 




/ 

/DOES OUTPUT REGIS 
/ 

TER jAM TRANSFER TO AC? 

0452 

3030 

TRAN1 t 

DCA 

TYPFLG . 

/CLEAR ERROR FLAG 

0453 

3031 


DCA 

LPCNT 

/SET ITERATION COUNT TO 4096JDECIMAL) 

0454 

4063 


CAF 


/INITIALIZE INTERFACE 

0455 

7340 


CLA CLL 

CMA 

/SET AC =7777 

0456 

4440 


DBRO 


/READ OutPUT REGISTER 

0457 

3021 


DCA 

DATA1 

/SAVE AC CONTENTS 

0460 

1021 


TAD 

DATA! 

/GET AC CONTENTS 

0461 

7650 


SNA CLA 


/WAS AC CLEARED BY TRANSFER 

0462 

5267 


JMP 

.+5 

/DATA CORRECT, CONTINUE 

0463 

4443 


JMS I 

XERROR 

/NO, ERROR 
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/MAInDeC®08»DGDRa«A drs^ea diagnostic for traditional PDP8 P 


) 

PAU0 


VI42 


17-JUL»73 


16 S 3,9 


0414 

3703 


TRAN1E*! 

7«D8R0 DID NOT CLEAR AC” 

0465 

3525 


DH2?*i 

/®AC CONTENTS" 

0466 

7777 


«1 

/number of words to be OUTPUT 

0467 

4 444 


JMS 1 XlOQPl 

/CHECK FOR LOOP ON CURRENT TEST 

0470 

5254 


JMP TRAN1*2 

/LOOP ON CURRENT TEST 




/DOES INPUT REGIS 

jf 

ter jam transfer TO AC 

0471 

3030 

TRAN2 j 

r 

DCA TYPFLS 

/CLEAR ERROR FLAG 

0472 

3031 


DCA LPCNT 

/SET ITERATION COUNT TO 4096«DECfMAL> 

0473 

4063 


CAF 

/initialise Interface 

0474 

7340 


CLA CLL CMA 

/SET AC 87777 

0475 

4435 


DBRI 

/READ INPUT REGISTER 

0476 

3021 


DCA DATA! 

/SAVE AC CONTENTS 

0477 

1021 


TAD DATA! 

/GET AC CONTENTS 

0500 

7650 


SNA CLA 

/WAS AC CLEARED'BY TRANSFER 

0501 

5306 


JMP >5 

/DATA CORRECT, CONTINUE 

0502 

4443 


JMS I TERROR 

/NO, ERROR 

0503 

3716 


TRAN2E®! 

/»DBRI DID NOT CLEAR AC" 

0504 

3525 


DH2al 

/"AC CONTENTS” 

0505 

7777 


@1 

/NUMBER OF WORDS TO BE OUTPUT 

0506 

4444 


JMS I XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

0507 

5273 


JMP ' TRAN2*2 

/LOOP ON CURRENT TEST 




J 

/DOES TRANSFER TO 

OUTPUT REGISTER CHANGE AC (WITH ACb777?,DBSQ) 

0510 

3030 

TRAN3 1 

DCA YYPFLG 

/CLEAR ERROR FLAG 

0511 

3031 


DCA LPCNT 

/SET ITERATION COUNT TO 4096JDECIMAL) 

0512 

4063 


CAF 

/initialize interface 

0513 

7340 


CLA CLL CMA 

/SET AC s7777 

0514 

4437 


D8S0 

/BIT SET OUTPUT REGISTER 

0515 

3021 


OCA DATA1 

/SAVE AS CONTENTS 

0516 

1021 


TAD DAT A1 

/GET AC CONTENTS 

0517 

7040 


CMA 

/COMPLIMENT DATA TO TEST FOR 7777 

0520 

7650 


SNA CLA 

/DID AC CHANGE 

0521 

5326 


JMP >5 

/DATA CORRECT, CONTINUE 

0522 

4443 


JMS I XERRQR 

/NOi ERROR 

0523 

3731 


TRAN3E*! 

/"DBSO CHANGED. AC” 

0524 

3525 


DH2s*i 

/"AC CONTENTS” 

0525 

7777 



/NUMBER OF WORDS TO BE OUTPUT 

0526 

4444 


JMS I XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

0527 

5312 


JMP TRAN3+2 

/LOOP ON CURRENT TEST 




/ 

/DOES TRANSFER TO 
/ 

OUTPUT REGISTER CHANGE AC (WITH ACs7777, DBCO) 

0530 

3030 

TRAN4, 

/ 

DCA TYPFLG 

/CLEAR ERROR FLAG 

0531 

3031 


DCA LPCNT 

/SET ITERATION COUNT TO 4096 (DECIMAL> 

0532 

4063 


CAF 

/INITIALIZE INTERFACE 

0533 

7340 


CLA CLL CMA 

/SET AC =7777 

0534 

4436 


DBCO 

/BIT CLEAR OUTPUT REGISTER 

0535 

3021 


DCA DATA1 

/SAVE AC CONTENTS 

0536 

1021 


TAD DATA! 

/GET AC CONTENTS 

0537 

7040 


CMA 

/COMPLIMENT DATA TO TEST FOR 7777 

0540 

7650 


SNA CLA 

/DID AC CHANGE 
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0541 

5346 


JMP 

' '.+5 

/DATA CORRECT# CONTINUE 

0542 

4443 


JMS I 

XERROR 

/NO# ERROR 

0543 

3741 


TRAN4E 

*1 

/"DBCO CHANGED-AC" 

0544 

3525 


0H2«*1 


/"AC CONTENTS* 

0545 

7777 


»»1 


/NUMBER OF WORDS TO BE OUTPUT 

0546 

4444 


JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

0547 

5332 


JMP 

TRAN4+2 

/LOOP ON CURRENT TEST 




j 

/DOES 

J 

transfer to 

INPUT REGISTER CHANGE AC (WITH AC=7777# DBCI 

0550 

3030 

TRAN?, 

/ 

DCA 

typflg 

/CLEAR ERROR FLAG 

0551 

3031 


DCA 

LPCNT 

/SET ITERATION COUNT TO 4096(DECjMAL) 

0552 

4063 


CAF 


/INITIALIZE INTERFACE 

0553 

7340 


CLA CLL CMA 

/SET AC s7777 

0554 

4434 


DBCI 


/BIT CLEAR INPUT REGISTER 

0555 

3021 


DCA 

DATA1 

/SAVE AC CONTENTS 

0556 

1021 


TAD 

DAT Ai 

/GET AC CONTENTS 

0557 

7040 


CMA 


/COMPLIMENT DATA TO TEST FOR 7777 

0560 

7650 


SNA CLA 

/DID AC CHANGE 

0561 

5366 


JMP 

• +5 

/DATA CORRECT, CONTINUE 

0562 

4443 


JMS I 

xerrqr 

/NO# ERROR 

0563 

3751 


TRAN5E 

■1 

/"DBCI CHANGED AC" 

0564 

3525 


DH2*1 


/"AC CONTENTS" 

0565 

7777 


*1 


/NUMBER OF WORDS TO BE OUTPUT 

0566 

4444 


JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

0567 

5352 


JMP 

TRAN5*2 

/LOOP ON CURRENT TEST 

0570 

5777' 


JMP 

TRAN6 

/GO TO NEXT TEST 

0577 

3600 






0600 

PAGE 







/ 

/DOES 

transfer TO 

OUTPUT REGISTER CHANGE AC (WITH ACb0#DB3O) 

0600 

3030 

TRAN6 s 

j 

DCA 

typflg 

/CLEAR ERROR FLAG 

0601 

3031 


DCA 

LPCNT 

/SET ITERATION COUNT TO 4096 (DECIMAL) 

0602 

4063 


CAF 


/INITIALIZE INTERFACE 

0603 

4437 


DBSO 


/BIT SET OUTPUT REGISTER 

0604 

3021 


DCA 

DAT Al 

/SAVE AC CONTENTS 

0605 

1021 


TAD 

DAT Al 

/GET AC CONTENTS 

0606 

7650 


SNA CLA 

/WAS AC CHANGED 

0607 

5214 


JMP 

>5 

/DATA CORRECT# CONTINUE 

0610 

4443 


JMS I 

XERROR 

/AC CHANGED# ERROR 

0611 

3731 


TRAN3E 

“1 

/"DBSO CHANGED AC" 

0612 

3525 


DH2-1 


/"AC CONTENTS" 

0613 

7777 




• /NUMBER OF WORDS TO BE OUTPUT 

0614 

4444 


JMS I 

XLOQPl 

/CHECK FOR LOOP ON CURRENT TEST 

0615 

5202 


JMP 

TRAN6*2 

/LOOP ON CURRENT TEST 




j 

/DOES 

y 

transfer to 

OUTPUT REGISTER CHANGE-AC (WITH AC=0,DBCO) 

0616 

3030 

TRAN7 f 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

0617 

3031 


DCA 

LPCNT 

/SET ITERATION COUNT TO 4096 (DECIMAL) 

P620 

4063 


CAF 


/INITIALIZE INTERFACE 

0621 

4436 


DBCO 


/BIT CLEAR OUTPUT REGISTER 
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0622 

3021 

DCA 


DATA1 

/SAVE AC CONTENTS 

0623 

1021 

TAD 


DATA1 

/GET AC CONTENTS 

0624 

7650 

SNA 

CLA 


/IS AC STILL 0 

0625 

5232 

JMP 


,*5 

/DATA CORRECT* CONTINYE 

0626 

4443 

JMS 

I 

XERRCR 

/NC* ERROR 

0627 

3741 

TRAN4E-! 


/ ” D 8 £ 0 CHANGED AC" 

0830 

3525 

DH2? 

*1 


/"AC CONTENTS” 

0631 

7777 

= 1 



/NUMBER OF WORDS TO BE OUTPUT 

0632 

4444 

JMS 

1 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

0633 

5220 

JMP 


TRAN7*2 

/LOOP ON CURRENT TEST 


/ 

/DOES TRANSFER TO INPUT REGISTER CHANGE AC (WITH ACs0» DBCI) 


/ 


0634 

3030 

TRANS 1 

DC-A 

TYPFLG 


/CLEAR ERROR FLAG 

0635 

3031 


DCA 

LPCNT 


/SET ITERATION COUNT TO 4096 £DECIMAL 

0636 

4063 


CAP 



/initialize Interface 

0637 

4434 


CBCI 



/BIT CLEAR INPUT REGISTER 

0640 

3021 


DCA 

DATA1 


/SAVE AC CONTENTS 

0641 

1021 


TAD 

DATA1 


/GET AC CONTENTS 

0642 

7650 


SNA CLA 



/IS AC St ILL 0 

0643 

5250 


JMP 

t *5 


/DATA CORRECTS CONTINUE 

0644 

4443 


JMS I 

XERRBR 


/AC changed* ERROR 

0645 

3751 


TRAN5E* 

1 


/"DBCI CHANGED AC” 

0646 

3525 


DH2“1 



/"AC CONTENTS" 

0647 

7777 


«1 



/NUMBER OF WORDS TO BE SUTPUTED 

0650 

4444 


JMS I 

XLDOP1 


/CHECK FOR LOOP ON CURRENT TEST 

0651 

5236- 


JMP 

TRAN8+2 


/LOOP ON CURRENT TEST 

0652 

5777' 


JMP 

OUTl 


/GO TO NEXT TEST 

0777 

1000 







1000 

PAGE 








/ 

/CAN ALL BITS ?N 

OUTPUT 

REGISTER BE SET (DBSO) 




/DOES INITIALISE 

y 

CLEAR 

OUTPUT REGISTER 

1000 

3030 

OUTl s 

9 

DCA 

Typflg 


/CLEAR ERROR FLAG 

1001 

3331 


DCA 

LPCNT 


/SET ITERATION COUNT TO 4096(DeCIMAL) 

1002 

4063 


CAP 



/INITIALISE INTERFACE 

1003 

7340 


CLA CLt 

CMA 


/SET AC =7777 

1004 

4437 


DBSO 



/BIT SET OUTPUT REGISTER 

1005 

4440 


DBRO 



/READ OUTPUT REGISTER 

1006 

3021 


DCA 

DATA1 


/SAVE REGISTER DATA 

1007 

1021 


TAD 

DAT Ai 


/GET REGISTER DATA 

1010 

7040 


CM A 



/COMPLIMENT DATA TO TEST FOR 7777 

1011 

7650 


SNA CLA 



/IS REGISTER=7777 

1012 

5217 


JMP 

>5 


/DATA correct* continue 

1013 

4443 


JMS I 

XERRQR 


/NO, ERROR 

1014 

3761 


QUTlE-i 



/"DBSO ERROR" 

1015 

3515 


DH1»1 



/"REGISTER DATA" 

1016 

7777 


w l 



/NUMBER OF WORDS TO BE OUTPUT 

1017 

4063 


CAF 



/initialize interface 

1020 

4440 


DBRO 



/READ OUTPUT REGISTER 

1021 

3021 


DCA 

DATA1 


/SAVE REGISTER DATA 

1022 

1021 


TAD 

DAT Al 


/GET REGISTER DATA 

1023 

7650 


SNA CLA 



/WAS REGISTER CLEARED 
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1024 

5231 

JMP ,+5 

1025 

4443 

JMS I XERROR 

1026 

3645 

INIT1E"! 

1027 

3515 

DH1-1 

1030 

7777 

-1 

1031 

4444 

JMS I XLOOP1 

1032 

5202 

JMP OUT1+2 

/ 


/CAN ALL BITS 
/ 


1033 

3030 

0UT2, 

DC A 

typflg 

1034 

3031 


DCA 

LPCNT 

1035 

7340 


CLA CLU 

CM A 

1036 

4437 


DBSO 


1037 

4436 


DBCO 


1040 

7300 


CLA CLL 


1041 

4440 


DBRO 


1042 

3021 


DCA 

DATA1 

1043 

1021 


TAD 

DAT A1 

1044 

7652 


SNA CLA 


1045 

5252 


JMP 

>5 

XERROR 

1046 

4443 


JMS I 

1047 

3645 


INIT1E- 

1 

1050 

3515 


DH1-1 


1051 

7777 


<-1 


1052 

4444 


JMS I 

XLOOP1 

1053 

5235 


JMP 

0UT2*2 


/DATA CORRECT, CONTINUE 
/NO, ERROR 

/’’OUTPUT REG NOT CLEARED” 

/”REGISTER DATA” 

/NUMBER OF WORDS TO BE OUTPUT 
/CHECK FOR LOOP ON CURRENT TEST 
/LOOP ON CURRENT TEST 

OUTPUT REGISTER BE CLEARED CDBCO) ■ 

/CLEAR ERROR FLAG 

/Set ITERATION COUNT TO 4096(DeCIMAL> 

/SET AC =7777 

/BIT SET OUTPUT REGISTER 

/BIT CLEAR OUTPUT REGISTER 

/READ OUTPUT REGISTER 
/SAVE REGISTER DATA 
/GET REGISTER DATA 
/WAS OUTPUT REGISTER CLEARED 
/DATA CORRECT, CONTINUE 
/NO, ERROR 

/’’OUTPUT REGISTER NOT CLEARED” 
/’’REGISTER DATA” 

/NUMBER OF WORDS TO BE OUTPUT 
/CHECK FOR LOOP ON CURRENT TEST 
/LOOP ON CURRENT TEST 


/ 

/CAN EACH BIT OF OUTPUT REGISTER BE SET 


/INDEPENDENTLY (bBSO) 


/ 


1054 

3030 

OUT3, 

DCA 

TYPFLG 

1055 

1176 


TAD 

C *62 

1056 

3031 


DCA 

LPCNT 

1057 

3021 


DCA 

DATA1 

1060 

4063 

0UT3A, 

CAF 


1061 

1021 


TAD 

DATA1 

1062 

4437 


DBSO 


1063 

7300 


CLA CLL 


1064 

4440 


DBRO 


1065 

3022 


DCA 

DATA2 

1066 

1021 


TAD 

QATA1 

1067 

7041 


CIA 


1070 

1022 


TAD 

DATA2 

1071 

7650 


SNA CLA 


1272 

5277 


. JMP 

.+5 

1073 

4443 


JMS I 

XERROR 

1074 

3761 


OUT1E**! 


1075 

3560 


DH4*=1 


1076 

7776 


-2 


1077 

4445 


JMS I 

XLG0P2 

1100 

5260 


JMP 

QUT3A 

1101 

2021 


ISZ 

DATA1 

1102 

5260 


JMP 

0UT3A 


/CLEAR ERROR FLAG 
/SET ITERATION COUNT 
/TO 50(DECiMAL> 

/CLEAR TEST DATA 
/INITIALIZE INTERFACE 
/GET TEST DATA 
/BIT SET OUTPUT REGISTER 

/READ OUTPUT REGISTER 
/SAVE REGISTER DATA 
/GET TEST DATA 

/COMPARE TO REGISTER CONTENTS 

/DO they compare 

/DATA CORRECT, CONTINUE 
/NO, ERROR 
/”D8S0 ERROR” 

/’’EXPECTED RECEIVED” 

/NUMBER OF WORDS TO BE OUTPUT 

/TEST FOR LOOP ON SAME DATA,ESCAPE ON DATA ERROR 
/LOOP WITH SAME DAtA 
/INCREMENT DATA PATTERN 
/CONTINUE TEST 
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1123 

4444 


JMS I 

XL00P1 

/CHECK FOR LOOP ON CURRENT TEST 


1104 

5257 


JMP 

J 

CUT3*3 

/LOOP ON CURRENT TEST 





/CAN EACH BIT OF OUTPUT 

REGISTER BE CLEARED 





/INDEPENDENTLY (D8C0) 

/ 



1105 

3030 

OUT4 * 

f 

DCA 

TYPFlG 

/clear error flag 


1106 

1176 


TAD 

062 

/SET ITERATION COUNT 


1107 

3031 


DCA 

LPCNT 

/TO 50<DECIMAU 


1110 

3021 


DCA 

DAT Ai 

/CLEAR TEST DATA 


mi 

4063 

o 

c 

—S- 
4* 

CAF 


/initialize Interface 


1112 

1021 


TAD 

DATA1 

/GET MASK 


1113 

7040 


CM A 


/COMPLIMENT TO GET EXPECTED RESULT 


1114 

3022 


DCA 

0ATA2 

/SAVE EXPECTED RESULT 


1115 

7040 


CMA 


/SET OUTPUT REGISTER TO 7777 


111© 

4437 


DBSQ 


/BIT SET OUTPUT REGISTER 


1117 

7300 


CLA CLl 




1120 

1021 


TAD 

DATA! 

/GET PATTERN TO CLEAR OUTPUT REGISTER 


1121 

4436 


DBCQ 


/BIT CLEAR OUTPUT REGISTER 


1122 

4440 


DBRO 


/READ QUtPUT REGISTER 


1123 

3023 


DCA 

DAT A3 

/SAVE REGISTER DATA 


1124 

1022 


TAD 

DATA2 

/GET EXPECTED RESULT 


1125 

7041 


CIA 




1126 

1023 


TAD 

0ATA3 

/COMPARE TO RECEIVED DATA 


1127 

7650 


SNA CLA 


/WERE CORRECT BITS IN OUTPUT REGISTER 

cleared 

1130 

5335 


JMP 

>5 

/DATA CORRECT* CONTINUE 


1131 

4443 


JMS l 

XERROR 

/HO > ERROR 


1132 

3767 


CUT4E«1 


/ w DBCO ERROR 51 


1133 

3534 


QH3*i 


/MASK EXPECTED RECEIVED 


1134 

7775 


#*3 


/NUMBER OF WORDS TO BE OUTPUT 


1135 

4445 


JMS I 

X100P2 

/TEST FOR LOOP ON SAME DATAiESCAPE ON 

data error 

1136 

5311 


JMP 

QUT4A 

/LOOP WITH SAME DATA 


1137 

2021 


ISH 

DATA1 

/INCREMENT DATA PATTERN 


1140 

5311 


JMP 

0UT4A 

/CONTINUE TEST 


1141 

4444 


JMS I 

XL00P1 

/CHECK FOR LOOP ON CURRENT TEST 


1142 

5310 


JMP 

OUT4*3 

/LOOP ON CURRENT TEST 


1143 

5777' 


JMP 

0UT5 



1177 

1200 







1200 

PAGE 






/ 

/WITH OUTPUT REGISTER CLEARED* DOES CLEARING 
/OUTPUT REGISTER CHANGE ANY BIT IN OUTPUT 
/ 


1200 

3030 

QUT5 1 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

1201 

1176 


TAD 

062 

/SET ITERATION COUNT 

1222 

3031 


DCA 

LPCNT 

/TO 53 {DECIMAL) 

1203 

3021 


DCA 

0ATA1 

/CLEAR TEST DATA 

1204 

3022 


DCA 

DATA2 

■ /CLEAR EXPECTED RESULT 

12?5 

4063 

0UT5A s 

caf 


/initialise interface 

120 6 

1021 


TAD 

DATA1 

/GET TEST DATA 

1207 

4436 


DB CO 


/BIT CLEAR OUTPUT REGISTER 

1212 

7300 


CLA CLL 



1211 

4440 


DBRO 


/READ OUtPUT REGISTER 

1212 

3023 


DCA 

DAT A3 

/SAVE REGISTER DATA 

1213 

1023 


TAD 

DAT A3 

/GET REGISTER DATA 
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1214 

7650 


SNA CLA 


/IS OUTPUT REGISTER 0 

1215 

5222 


JMP 

• 4*5 

/DATA CORRECT# CONTINUE 

1216 

4443 


JMS I 

XERRQR 

/NO, ERROR 

1217 

3767 


QUT4E*1 


/"DBCO ERROR" 

1220 

3534 


QH3*1 


/"MASK EXPECTED RECEIVED" 

1221 

7775 


» 3 


/NUMBER OF DATA WORDS 

1222 

4445 


JMS I 

XL00P2 

/TEST FOR LOOP ON SAME DATA 

1223 

5235 


JMP 

0UT5A 

/LOOP WITH SAME DAtA 

1224 

2021 


IS? 

DATA1 

/INCREMENT DATA PATTERN 

1225 

5205 


JMP 

GUT5A 

/CONTINUE 

1226 

4444 


JMS I 

XLOOP1 

/CHECH FOR LOOP ON CURRENT TEST 

1227 

5203 


JMP 

QUT5*3 

/LOOP ON CURRENT TEST 




/ 

/DOES SETTING OUTPUT 

REGISTER TWICE WITH SAME 




/DATA CHANGE OUTPUT 

J 

REGISTER 

1230 

3030 

0UT6, 

t 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

1231 

1176 


TAD 

C*62 

/SET ITERATION COUNT 

1232 

3031 


DCA 

LPCNT 

/TO 50 (DECIMAL) 

1233 

3021 


DCA 

DATAi 

/CLEAR TEST DATA 

1234 

4063 

OUT6A, 

CAF 


/INITIALIZE INTERFACE 

1235 

1021 


TAD 

DATA! 

/GET TESt DATA 

1236 

4437 


OBSO 


/BIT SET OUTPUT REGISTER 

1237 

4437 


DB30 


/BIT SET OUTPUT REGISTER 

1240 

7300 


CLA CLU 



1241 

4440 


DBRO 


/READ OUTPUT REGISTER 

1242 

3022 


DCA 

DATA2 

/SAVE REGISTER DATA 

1243 

1021 


TAD 

DATAI 

/GET TEST DATA 

1244 

7041 


CIA 



1245 

1022 


TAD 

DATA2 

/COMPARE TO REGISTER DATA 

1246 

7650 


SNA CLA 


/aare they the same 

1247 

5254 


JMP 

g +5 

/DATA CORRECT, CONTINE 

1250 

4443 


JMS I 

xerror 

/NOj ERROR 

1251 

3767 


0UT4E*»1 


/"DB50 ERROR" 

1252 

3560 


DH4wl 


/"EXPECTED RECEIVED" 

1253 

7776 


-2 


/NUMBER OF DATA WORDS 

1254 

4445 


JMS I 

XLQQP2 

/TEST FOR LOOP ON SAME DATA 

1255 

5234 


JMP 

OUT6A 

/LOOP WITH SAME DATA 

1256 

2021 


IS? 

DATAI 

/INCREMENT DATA PATTERN 

1257 

5234 


JMP 

0UT6A 

/CONTINUE 

1260 

4444 


JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

1261 

5233 


JMP 

0UT6*3 

■ /LOOP ON CURRENT TEST 


/ 

/DOES READING OUTPUT REGISTER TWICE CHANGE 
/OUTPUT REGISTER 
/ 


1262 

3030 

0UT7 s 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

1263 

1176 


TAD 

062 

/SET ITERATION COUNT 

1264 

3031 


DCA 

LPCNT 

/TO 53 (DECIMAL) 

1265 

3021 


DCA 

DATAI 

/CLEAR TEET DATA 

1266 

4063 

0UT7A, 

CAF 


/INITIALIZE INTERFACE 

1267 

1021 


TAD 

DATAI 

/GET TEST DATA 

1270 

4437 


DB30 


/BIT SET OUTPUT REGISTER 




) 
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1271 

7302 

CLA CLl 




1272 

4440 

DBRO 


/READ OUTPUT REGISTER 


1273 

7302 

CLA CLL 




1274 

4440 

DBRO 


/READ OUTPUT REGISTER 


1275 

3022 - 

DCA 

DATA2 

/SAVE REGISTER DATA 


1276 

1021 

TAD 

DATA 1 

/GET TEST DATA 


1277 

7041 

CIA 




1300 

1022 

TAD 

DATA2 

/COMPARE TO REGISTER DATA 


1301 

7650 

SNA CLA 


/ARE THEY TME SAME 


1302 

5307 

JMP 

4>5 

/DATA CORRECT $ CONTINUE 


1303 

4443 

JMS I 

XERROR 

/NO# ERROR 


1304 

3775 

0UT7E‘5>1 


/«DBRO ERROR” 


1305 

3560 

DH4*1 


/’'EXPECTED RECEIVED” 


1386 

7776 

<*2 


/NUMBER OF DATA WORDS 


1307 

4445 

JMS I 

XL00P2 

/TEST FOR LOOP WITH SAME DATA 

1310 

5266 

JMP 

0UT7A 

/LOOP WITH SAME DATA 


1311 

2021 

isz 

DATA! 

/increment data pattern 


1312 

5266 

JMP 

0UT7A 

/CONTINUE 


1313 

4444 

JMS I 

XLQOPl 

/CHECK FOR LOOP ON CURRENT 

TEST 

1314 

5265 

JMP 

0UT7*3 

/LOOP ON CURRENT TEST 




/ 

/DOES CLEARING OUTPUT 

REGISTER TWICE 




/change 

/ 

any sit in output register 


1315 

3030 OUTSs 

/ 

DCA 

typflg 

/CLEAR ERROR FLAG 


1316 

1176 

TAD 

062 

/SET ITERATION COUNT 


1317 

3031 

DCA 

LPCNT 

/TO 50 (DECIMAL) 


1320 

3021 

DCA 

DAT A1 

/CLEAR TEST DATA 


1321 

3022 

DCA 

DATA? 

/CLEAR EXPECTED RESULT 


1322 

4063 OUTSAj 

CAF 


/INITIALIZE INTERFACE 


1323 

1021 

TAD 

DATA! 

/GET TESt DATA 


1324 

4437 

DBSQ 


/BIT SET OUTPUT REflSTER 


1325 

4436 

DBCO 


/BIT CLEAR OUTPUT REGISTER 


1326 

4436 

DBCO 


/BIT CLEAR OUTPUT REGISTER 


1327 

7300 

CLA CLL 




1330 

4440 

DBRO 


/READ OUTPUT REGISTER 


1331 

3023 

DCA 

DATA3 

/SAVE REGISTER DATA 


1332 

1023 

TAD 

DATA3 

/GET REGISTER DATA 


1333 

7650 

SNA CLA 


/IS REGISTER 0 


1334 

5341 

JMP 

>5 

/DATA CORRECT f CONTINUE 


1335 

4443 

JMS l 

XERROR 

/NO s ERROR 


1336 

3767 

0UT4E-1 


/’’DBCO ERROR” 


1337 

3534 

DH3i»l 


/’’MASK EXPECTED RECEIVED” 


1340 

7775 

~3 


/NUMBER OF DATA WORDS 


1341 

4445 

JMS I 

XLOOP2 

/TEST FQR LOOP WITH SAME DATA 

1342 

5322 

JMP 

0UT8A 

/LOOP WITH SAME DATA 


1343 

2021 

ISZ 

DAT A1 

/INCREMENT DATA PATTERN 


1344 

5322 

JMP 

OUT 8 A 

/CONTINUE 


1345 

4444 

JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT 

TEST 

1346 

5320 

JMP 

OUT8+3 

/LOOP ON CURRENT TEST 


1347 

5777' 

JMP 

INI 



1377 

1400 






1400 


PAGE 
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/ 

/CAN ALL BITS in INPUT REGISTER BE SET 
/DOES INITIALIZE CLEAR INPUT REGISTER 


/ 


1400 

3030 

INI# 

DC A 

TYPFLG 

/CLEAR ERROR FLAG 

1401 

3031 


DCA 

LPCNT 

/SET ITERATION COUNT TO 4096<DEC IMAL) 

1402 

4063 


CAF 


/INITIALIZE INTERFACE 

1403 

7340 

IN1A. 

CLA CLL 

CMA 

/SET AC =7777 

1404 

4437 


DBSO 


/BIT SET OUTPUT REGISTER 

1405 

7300 


CLA CLL 



1406 

4435 


DBRI 


/READ INPUT REGISTER 

1407 

3021 


DCA 

DATA! 

/SAVE REGISTER DATA 

1410 

1021 


TAD 

DATA1 

/GET REGISTER DATA 

1411 

7040 


CMA 


/COMPLIMENT TO TEST FOR 7777 

1412 

7650 


SNA CLA 


/WAS INPUT REGISTER SET fO 7777 

1413 

5220 


JMP 

>5 

/DATA CORRECT# CONTINUE 

1414 

4443 


JMS I 

XERROR 

/NO# ERROR 

1415 

4011 


IN3E«i 


/"INPUT REGISTER NOT CORRECT*’ 

1416 

3515 


QH1*1 


/ H REGISTER DATA” 

1417 

7777 


"1 


/NUMBER OF WORDS TO BE OUTPUT 

1420 

4063 

I NIB. 

CAF 


/INITIALIZE INTERFACE 

1421 

4435 


DBRI 


/READ INPUT REGISTER 

1422 

3021 


DCA 

DATA! 

/SAVE REGISTER DATA 

1423 

1021 


TAD 

DATA1 


1424 

7650 


SNA CLA 



1425 

5232 


JMP 

>5 

/DATA CORRECT. CONTINUE 

1426 

4443 


JMS I 

XERROR 

/NO, ERROR 

1427 

3661 


INIT2E*: 

1 

/"INPUT REGISTER NOT CLEARED” 

1430 

3515 


OHl*l 


/"REGISTER DATA" 

1431 

7777 


"1 


/NUMBER OF WORDS TO BE OUTPUT 

1432 

4444 


JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 

1433 

5203 


JMP 

IN1A 

/LOOP ON CURRENT TEST 




/ 

/CAN ALL BITS IN 
/ 

INPUT REGISTER BE CLEARED (DBC15 

1434 

3030 

IN2# 

/ 

DCA 

TYPFLG . 

/CLEAR ERROR FLAG 

1435 

3031 


DCA 

LPCNT 

‘ /SET ITERATION COUNT TO 4096<DEC IMAL3 

1436 

4063 


CAF 


/INITIALIZE INTERFACE 

1437 

7340 


CLA CLL 

CMA 

/SET AC 37777 

1440 

0027 


AND 

F JUMPER 

/MASK TO TEST ONLY FLIPFLOP BITS 

1441 

3021 


DCA 

DATA! 

/SAVE MASK 

1442 

3022 


DCA 

DATA2 

/SAVE EXPECTED RESULT 

1443 

1021 


TAD . . 

DATA1 

/GET MASK 

1444 

4437 


DBSO 


/BIT SET OUTPUT REGISTER 

1445 

4434 


DBCI 


/BIT CLEAR INPUT REGISTER 

1446 

7300 


CLA CLL 



1447 

4435 


DBRI 


/READ INPUT REGISTER 

1450 

3023 


DCA 

DAT A3 

/SAVE REGISTER DATA 

1451 

1023 


TAD 

DAT A3 

/COMPARE TO REGISTER DATA 

1452 

7650 


SNA CLA 


/WERE CORRECT BITS CLEARED 

1453 

5260 


JMP 

>5 

/DATA CORRECT, CONTINUE 

1454 

4443 


JMS I 

XERRCR 

/NOi ERROR 

1455 

4003 


IN2E*1 


/"DBCI ERROR" 

1456 

3534 


D'H3t*l 


/"MASK EXPECTED RECEIVED" 


J J 



/MAINDEC-0B-DGDRA-A DR 8 *EA DIAGNOSTIC FOR 


TRAD ITIQNAL PDP 8 P 


) 

PALIS 


V142 


17*JUU73 


16*19 PAGE i»14 


1457 7775 

1460 4444 

1461 5236 


**3 /NUMBER OF WORDS TO BE OUTPUT 

wMS I XLOOP1 /CHECK FOR LOOP ON CURRENT TEST 

JMP IN2+2 /LOOP ON CURRENT TEST 


1462 

3030 

1463 

1176 

1464 

3031 

1465 

3021 

1466 

4063 

1467 

1021 

1470 

4437 

1471 

7300 

1472 

4435 

1473 

3022 

1474 

1021 

1475 

7041 

1476 

1022 

1477 

7650 

1500 

5305 

1501 

444 3 

1502 

4311 

1503 

3560 

1504 

7776 

1505 

4445 

1506 

5266 

1507 

2021 

1510 

5266 

1511 

4444 

1512 

5265 

1513 

5777 

1577 

1600 

1600 


1 N3 i 


IN3 A s 


/ 


/CAN EAC 

!h BP OF 

/ 


DGA 

typflg 

TAD 

!>62 

DC A 

LPCNT 

DC A 

DAT Ai 

CAF 


TAD 

DATA1 

DBSO 


CIA cll 


DBRI 


DCA 

DATA? 

TAD 

DATA! 

CIA 


TAD 

DATA2 

SNA ClA 


JMP 

a *5 

JMS I 

xerroR 

IN3E*l 


DH4*1 


**2 


JMS I 

XLOCP2 

JMP 

IN3 A 

ISZ 

DATA1 

JMP 

IN3A 

JMS I 

XLOOP1 

JMP 

IN3«3 

JMP 

IN5 


INPUT REGISTER BE SET INDEPENDENTLY 

/CLEAR ERROR FLAG 
/SET ITERATION COUNT 
/TO 50 C DEC IMAL > 

/CLEAR TEST DATA 
/INITIALISE INTERFACE 
/GET TESf DATA 
/BIT SET OUTPUT REGISTER 

/READ INPUT REGISTER 
/SAVE REGISTER DATA 
/GET TEST DATA 

/COMPARE TO RECEIVED DATA 
/ARE THEY THE SAME 
/DATA CORRECT* CONTINUE 
/NO* ERROR 

/’’INPUT REGISTER DATA ERROR” 

/’’EXPECTED RECEIVED” 

/NUMBER OF WORDS TO BE OUTPUT 

/TEST FOR LOOP ON SAME DATA#ESCAPE ON DATA ERROR 
/LOOP WITH SAME DATA 
/INCREMENT DATA PATTERN 
/CONTINUE TEST 

/CHECK FOR LOOP ON CURRENT TEST 
/LOOP ON CURRENT TEST 


PAGE 





/VERIFY 

/ 

THAT ALL 

latching input lines hold data 

1600 

3030 

IN5 B 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

1621 

1176 


TAD 

062 

/SET ITERATION COUNT 

16 02 

3031 


DCA 

LPCNT 

/TO 50(DEClMAU 

1623 

3023 


DCA 

DATA3 

/CLEAR TEST DATA 

1624 

4063 

IN 5 A * 

CAF 


/initialise Interface 

1625 

1023 


TAO 

DATA3 

/GET TESf DATA 

1636 

0027 


AND 

F JUMPER 

/MASK OFF NON LATCHING BITS 

1607 

3021 


DCA 

DAT Al 

/SAVE AS EXPECTED RESULT 

1613 

1021 


TAD 

0 A T A1 

/GET TESf DATA 

1611 

7450 


SNA 


/ARE ANY BITS TO BE TESTED 

1612 

5233 


JMP 

I NSC 

/NO * GET NEXT DATA WORD 

1613 

4437 


DBSO 


/BIT SET OUTPUT REGISTER 

1614 

4436 


DBCO 


/BIT CLEAR OUTPUT REGISTER 

1615 

7300 


CLA CLL 



1616 

4435 


DBRI 


/READ INPUT REGISTER 
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1617 

3022 


DCA 

DATA2 

/SAVE REGISTER DATA 




1620 

1021 


TAD 

DATA1 

/GET EXPECTED RESULT 




1621 

7041 


CIA 






1622 

1022 


tad 

DATA2 

/COMPARE TO RECEIVED DATA 




1623 

7650 


SNA CLA 


/ARE THEY THE SAME 




1624 

5231 


JMP 

■ *5 

/DATA CORRECT, CONTINUE 




1625 

4443 


JMS I 

XERRPR 

/NG« ERROR 




1626 

4026 


IN4E*1 


/''LATCH ERROR” 




1627 

3560 


DH4«1 


/"EXPECTED RECEIVED” 




1630 

7776 


»2 


/NUMBER OF WORDS TO BE OUTPUT 




1631 

4445 


JMS I 

XL00P2 

/TEST FOR LOOP ON SAME DATA,ESCAPE 

ON 

data 

ERROR 

1632 

5204 


JMP 

IN5A 

/LOOP WITH SAME DATA 




1633 

2023 

IN5C» 

ISZ 

DATA3 

/INCREMENT DATA PATTERN 




1634 

5204 


JMP 

IN5A 

/continue test 




1635 

4444 


JMS I 

XLOOP1 

/CHECK FOR LOOP ON CURRENT TEST 




1636 

5203 


JMP 

/ 

IN5+3 

/LOOP ON CURRENT TEST 







/VERIFY 

ALL NON 

LATCHING DATA BITS DO NOf HOLD DATA 




1637 

3030 

IN6, 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 




1640 

1176 


TAD 

062 

/SET iteration count 




1641 

3031 


DCA 

LPCNT 

/TO 50<DECIMAL) 




1642 

3024 


DCA 

DATA4 

/CLEAR TEST DATA 




1643 

3022 


DCA 

DAT A2 

/CLEAR EXPECTED RESULT 




1644 

4063 

IN6A 8 

caf 


/INITIALIZE INTERFACE 




1645 

1027 


TAD 

FJUMPER 

/geT mask for non latching bits 




1646 

7040 


CMA 


/CHANGE TO MASK OFF LAfCHING BITS 




1647 

0024 


AND 

DATA4 





1650 

3021 


DCA 

DATA1 

/save for Transmission 




1651 

1021 


TAD 

DATA1 

/GET TESf DATA 




1652 

7453 


SNA 


/ARE any BITS to BE TESTED 




1653 

5272 


JMP 

IN6C 

/NO GET NEXT DATA WORD 




1654 

4-437 


DBSO 


/BIT SET OUTPUT REGISTER 




1655 

4436 


DBCQ 


/BIT CLEAR OUTPUT REGISTER 




1656 

7300 


CLA DLL 






1657 

4435 


D 8 RI 


/READ INPUT REGISTER 




1660 

3023 


DCA 

DAT A3 

/SAVE REGISTER DATA 




1661 

1023 


TAD 

DAT A3 

/GET RECEIVED DAtA 




1662 

7650 


SNA CLA 


/DID ANY BITS HOLD DATA 




1663 

5270 


JMP 

«£5 

/DATA CORRECT, CONTINUE 




1664 

4443 


JMS I 

XERRQR 

/YES, ERROR . 




1665 

4026 


IN4E*1 


/"LATCH ERROR" 




1666 

3534 


DH3®1 


/"MASK EXPECTED RECEIVED" 




1667 

7775 




/NUMBER OF WORDS TO BE OUTPUT 




1670 

4445 


JMS I 

XLOOP2 

/TEST FOR LOOP ON SAME DATA,ESCAPE 

ON 

data 

ERROR 

1671 

5244 


JMP 

IN6A 

/LOOP WITH SAME DATA 




1672 

2024 

IN6C» 

ISZ 

DATA4 

/INCREMENT DATA PATTERN 




1673 

5244 


JMP 

IN6 A 

/CONTINUE TEST 




1674 

4444 


JMS I 

XLOOP1 

/CHECK FDR LOOP ON CURRENT TEST 




1675 

5242 


JMP 

IN6*3 

/LOOP ON CURRENT TEST 







/ 

/VERIFY 

THAT ALL 

LATCHING LINES CAN BE CLEARED INDEPENDENTLY 




•J J 





) 
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1676 

3030 

I N7 a 

DC A 

TYPFLG 

/CLEAR ERROR FLAG 

1677 

1176 


TAD 

i » 6 2 

/SET ITERATION COUNT 

1700 

3031 


DC A 

LPCNT 

/TO 50(DEC I MAI) 

1701 

3324 


DC A 

OAT A 4 

/CLEAR TEST 

17P2 

4063 

I N7 A a 

CAP 


/INITIALIZE interface 

1703 

1027 


TAD 

F JUMPER 

/GET MASK FOR LATCHING BITS 

1704 

0024 


AND 

DATA4 

/MASK OFF NON LATCHING BITS 

1705 

3021 


DCA 

DAT A1 

/SAVE for transmission 

1706 

3022 


DC A 

DATA2 

/EXPECTED RESULT 

1707 

1021 


TAD 

DAT A1 

/SET OUTPUT REGISTERs7777 

1710 

4437 


DBSQ 


/BIT SET OUTPUT REGISTER 

1711 

4436 


DBCO 


/BIT CLEAR OUTPUT REGISTER 

1712 

7300 


CLA CLU 



1713 

1021 


TAQ 

DAT Ai 

/GET TEST DATA 

1714 

4434 


DSC I 


/BIT CLEAR INPUT REGISTER 

1715 

7300 


CLA CLL 



1716 

4435 


dbrs 


/READ INPUT REGISTER 

1717 

3023 


DCA 

DATAS 

/SAVE REGISTER DATA 

1720 

1023 


TAD 

DATA3 

/COMPARE TO RECEIVED DATA 

1721 

7650 


SNA CLA 


/ARE THEY THE SAME 

1722 

5327 


JMP 

t *5 

/DATA CORRECT, CONTINUE 

1723 

4443 


JMS I 

XERROR 

/NO, ERROR 

1724 

4026 


IN4E*i 


/"LATCH ERROR" 

1725 

3534 


DH3t*l 


/"MASK EXPECTED RECEIVED" 

1726 

7775 


-3 


/NUMBER OF WORDS TO BE OUTPI 

1727 

444'5 


JMS I 

XL00P2 

/TEST FOR LOOP ON SAME DATA 

1730 

5302 


JMP 

IN7A 

/LOOP KITH SAME DATA 

1731 

2024 

IN7C a 

IS2 

CATA4 

/INCREMENT DATA PATTERN 

1732 

5302 


JMP 

IN7A 

/continue Test 

1733 

4444 


JMS I 

xloopi 

/CHECK FOR LOOP ON CURRENT 

1734 

5301 


JMP 

IN7*3 

/LOOP ON CURRENT TEST 

1735 

5777' 


JMP 

IN8 

/GO TO NEXT TEST 

1777 

2000 






2000 

PAGE 







/ 

/WITH THE INPUT REGISTER CLEARED e DOES CLEARING 




/THE INPUT REGISTER SET 

ANY BIT IN INPUT 

2000 

3030 

INS, 

f 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

2001 

1176 


TAD 

t* 62 

/SET ITERATION COUNT 

2002 

3031 


DCA 

LPCNT 

/TO §0 (DECIMAL) 

2003 

3021 


DCA 

DATA1 

/CLEAR TEST DATA 

2004 

3022 


DCA 

DATA2 

/CLEAR EXPECTED RESULT 

2005 

4063 

INSA, 

CAF 


/INITIALIZE INTERFACE 

2006 

1021 


TAD 

DATA! 

/get Test data 

2007 

4434 


DBC I 


/BIT CLEAR INPUT REGISTER 

2010 

7300 


CLA CLL 



2011 

4435 


DBRI 


/READ INPUT REGISTER 

2012 

3023 


DCA 

0ATA3 

/SAVE REGISTER DATA 

2013 

1023 


TAD 

DAT A3 

/GET REGISTER DATA 

2014 

7650 


SNA CLA 


/IS INPUT REGISTER 0 

2015 

5222 


JMP 

a +5 

/DATA CORRECT, CONTINUE 

2016 

4443 


JMS I 

XERROR 

/NO, ERROR 
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/MAlNDEC-28-DGDRA^A DR 8 *EA DIAGNOSTIC FOR TRADITIONAL PDP 8 P 


2017 

4003 

IN 2 E * 1 


/”DBC I ERROR’’ 

2020 

3534 

QH3*1 


/’’MASK EXPECTED RECEIVED” 

2021 

7775 

*3 


/NUMBER OF DATA WORDS 

2322 

4445 

JMS I 

XL00P2 

/TEST FOR LOOP WITH SAME DATA 

2023 

5205 

JMP 

IN3A 

/LOOP WITH SAME DATA 

2024 

2021 

IS-* 

DATA! 

/INCREMENT DATA PATTERN 

2:225 

5205 

JMP 

IN 8 A 

/CONTINUE 

2026 

4444 

JMS I 

XlQOFl 

/CHECK FOR LOOP ON CURRENT TEST 

2027 

5223 

JMP 

IN8+3 

/LOOP ON CURRENT TEST 


/ 


/does reading the input register twice 





/change 

THE INPUT RE 

GISTER 

2030 

3030 

IN9, 

i 

OCA 

TYPFLG 

/CLEAR ERROR FLAG 

2031 

1176 


TAD 

C *62 

/SET ITERATION COUNT 

2032 

3231 


DCA 

LPCNT 

/TO 50 (DECIMAL) 

2033 

3021 


DC A 

DATA1 

/CLEAR TEST DATA 

2034 

4063 

IN9A» 

CAF 


/initialise interface 

2035 

1021 


TAD 

DAT A1 

/GET TEST DATA 

2036 

4437 


DBSO 


/BIT SET OUTPUT REGISTER 

2037 

7300 


CLA CLl 



2040 

4435 


DBRI 


/READ INPUT REGISTER 

2041 

7300 


CLA CLL 



2042 

4435 


DBRI 


/READ INPUT REGISTER 

2043 

3022 


DCA 

DATA2 

/SAVE REGISTER DATA 

2044 

1021 


TAD 

OATA1 

/GET TESt DATA 

2045 

7041 


CIA 



2346 

1022 


TAD 

DATA2 

/COMPARE to REGISTER DATA 

2047 

7650 


SNA CL A 


/ARE THEY THE SAME 

2050 

5255 


JMP 

«+5 

/DATA CORRECT* CONTINUE 

2051 

4443 


JMS I 

XERROR 

/NO t ERROR 

2052 

4034 


IN9E-1 


/"DBRI ERROR" 

2053 

3563 


DH4-1 


/"EXPECTED RECEIVED" 

2054 

7776 


*2 


/NUMBER OF DAT WORDS 

2055 

4445 


JMS I 

XL00P2 

/TEST FOR LOOP WITH SAME DATA 

2056 

5234 


JMP 

IN9 A 

/LOOP WlfH SAME DATA 

2057 

2021 


1SH 

DAT A1 

/INCREMENT DATA PATTERN 

2060 

5234 


JMP 

IN9A 

/CONTINUE 

2061 

4444 


JMS I 

XLOOR1 

'/CHECK FOR LOOP ON CURRENT TESt 

2362 

5233 


JMP 

IN9*3 

'/LOOP ON CURRENT TEST 




/ 

/DOES CLEARING INPUT 

/in input register 

register twice set any.bit 

2363 

3030 

IN 10 . 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

2064 

1176 


TAD 

C b>62 

/SET ITERATION COUNT 

2365 

3031 


DCA 

LPCNT 

/TO 50 (DECIMAL) 

2066 

3022 


DCA 

DATA? 

/CLEAR EXPECTED RESULT 

2067 

3021 


OCA 

DATA1 

/CLEAR TESt DATA 

2070 

4063 

IN13A* 

CAF 


/INITIALISE INTERFACE 

2071 

1021 


TAD 

DATA! 

/GET TEST DATA 

2072 

4437 


DBSO 


/BIT SET OUTPUT REGISTER 

2073 

4436 


OBCO 


/BIT CLEAR OUTPUT REGISTER 



■) ) 
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2274 

4434 


DBCI 


/SIT CLEAR INPUT REGISTER 


2075 

4434 


DSC I 


/BIT CLEAR INPUT REGISTER 


2276 

7300 


CLA CLL 




2077 

4435 


D8KI 


/READ INPUT REGISTER 


2120 

3023 


DC A 

DATA3 

/SAVE REGISTER DATA 


2101 

1023 


TAD 

CAT A3 

/GET REGISTER DATA 


2122 

7650 


SNA CLA 


/IS INPUT REGISTER 0 


21F3 

5310 


JMP 

a 4-5 

/DATA CORRECT, CONTINUE 


2104 

4443 


JMS I 

xerrqr 

/NO, ERROR 


2105 

4003 


IN2E*1 


/ " D B CI ERROR” 


2106 

3534 


QH3f»1 


/’’MASK EXPECTED RECEIVED” 


2107 

7775 


v 3 


/number of data words 


2110 

4445 


JMS I 

XL00P2 

/TEST FOR LOOP WITH SAME DATA 

2111 

5270 


JMP 

IN10A 

/LOOP WITH SAME DATA 


2112 

2021 


ISZ 

DATA! 

/INCREMENT DATA PATTERN 


2113 

5270 


JMP 

IN10A 

/CONTINUE 


2114 

4444 


JMS I 

XLOOPI 

/CHECK FOR LOOP ON CURRENT 

TEST 

2115 

5266 


JMP 

IN10+3 

/LOOP ON CURRENT TEST 


2U6 

5777' 


JMP 

INOU1 

/GO TO NEXT TEST 


2177 

2200 

2200 

PAGE 








/ 

/WITH BOTH INPUT AND 

OUTPUT REGISTERS CLEARED 





/DOES CLEARING OUTPUT 

set 





/ANY BIT 
/ 

DC A 

' IN INPUT 



2200 

3030 

INQU1» 

typflg 

/CLEAR ERROR FLAG 


2201 

1176 


TAD 

{>62 

/set iteration count 


2202 

3031 


DCA 

LPCNT 

/TO 53 {DECIMAL) 


2203 

3021 


DCA 

DAT A1 

/CLEAR TEST DATA 


2204 

3022 


DCA 

DATA2 

/CLEAR EXPECTED RESULT 


2205 

4063 

INOU1A» 

CAF 


/INITIALIZE INTERFACE 


2206 

1021 


TAO 

DATA1 

/GET TEST DATA 


2207 

4436 


DBCO 


/BIT CLEAR OUTPUT REGISTER 


2210 

7300 


CLA CLl 




2211 

4435 


OBR I 


/READ INPUT REGISTER 


2212 

3023 


DCA 

DAT A3 

/SAVE register data 


2213 

1023 


TAD 

DAT A3 

/get register data 


2214 

7650 


SNA CLA 


/IS OUTPUT REGISTER 0 


2215 

5222 


JMP 


/DATA CORRECT, CONTINUE 


2216 

4443 


JMS I 

XERRQR 

'/NO, ERROR 


2217 

3767 


0UT4E-1 


/"DBCO ERROR" 


2220 

3534 


QH3«=1 


/"MASK EXPECTED RECEIVED" 


2221 

7775 


•3 


/NUMBER OF DATA WORDS 


2222 

4445 


JMS I 

XL00P2 

/TEST FOR LOOP WITH SAME DATA 

2223 

5205 


JMP 

INOU1A 

/LOOP WITH SAME DATA 


2224 

2021 


ISZ 

DAT A1 

/INCREMENT DATA PATTERN 


2225 

5205 


JMP 

INOU1A 

/CONTINUE 


22-26 

4444 


JMS I 

XLOOPI 

/CHECK FOR LOOP ON CURRENT 

TEST 

2227 

5203 


JMP 

!N0Ui*3 

/LOOP ON CURRENT TEST 



/WITH both input and output registers cleared 

/DOES CLEARING INPUT SeT ANY BIT IN OUTPUT 
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2230 

3030 

IN0U2, 

DC A 

TYPFLG 

/CLEAR ERROR FLAG 

2231 

1176 


TAD 

062 

/set iteration count 

2232 

3031 


DCA 

LPCNT 

/TO 53 {DECIMAL) 

2233 

3021 


DC A 

DATA1 

/CLEAR TEST DATA 

2234 

3022 


DCA 

DATA2 

/CLEAR EXPECTED RESULT 

2235 

4063 

IN0U2A, 

CAF 


/INITIALIZE interface 

2236 

1021 


TAD 

DATA! 

/GET TESf DATA 

2237 

4434 


DBCI 


/BIT CLEAR INPUT REGISTER 

22-40 

7300 


CLA CLL 



2241 

4440 


DBRO 


/READ OUTPUT REGISTER 

2242 

3023 


DCA 

DATA3 

/SAVE REGISTER DATA 

2243 

1023 


TAD 

DAT A3 

/GET REGISTER DATA 

2244 

7650 


SNA CLA 


/IS OUTPUT REGISTER 0 

2245 

5252 


JMP 

>5 

/DATA CORRECT, CONTINUE 

2246 

4443 


JMS I 

XERROR 

/NO, ERROR 

2247 

4003 


IN2E«1 


/ " D B CI ERROR” 

2250 

3534 


DH3*1 


/"MASK EXPECTED RECEIVED" 

2251 

7775 


*3 


/NUMBER OF DATAA WORDS 

2252 

4445 


JMS I 

XL00P2 

/TEST FOR LOOP WITH' CURRENT DATA 

2253 

5235 


JMP 

IN0U2A 

/loop with same data 

2254 

2021 


IS2 

DATA1 

/INCREMENT DATA PATTERN 

2255 

5235 


JMP 

IN0U2.A 

/CONTINUE 

2256 

4444 


JMS I 

XL00P1 

/CHECK FOR LOOP ON CURRENT TEST 

2257 

5233 


JMP 

i 

IN0U2*3 

'/LOOP ON CURRENT TEST 




/WITH THE OUTPUT REGISTER SET TO ALL IS, AND 




/THE INPUT REGISTER 

CLEAREDi DOES SELECTIVELY 




/CLEARING THE OUTPUT 

REGISTER SET ANY BIT IN 




/THE INPUT REGISTER 


2260. 

3030 

INQU3, 

/ 

DCA 

TYPFLG 

/CLEAR ERROR FLAG 

2261 

1176 


TAD 

062 

/SET ITERATION COUNT 

2262 

3031 


DCA 

LPCNT 

/TO 50 < DECIMAL ) 

2263 

3021 


DCA 

DATA1 

/CLEAR TEST DATA 

2264 

3022 


DCA 

DAT A2 

/CLEAR EXPECTED RESULT 

2265 

4063 

INQU3A, 

CAF 


/initialise interface 

2266 

7040 


CMA 


/SET AC=7777 

2267 

4437 


DBSO 


/BIT SET OUTPUT REGISTER 

2270 

4434 


DBC I 


/BIT CLEAR INPUT REGISTER 

2271 

7300 


CLA CLL 



2272 

1027 


TAD 

F JUMPER 

/GET FLIPFLOP JUMPER MASK 

2273 

7040 


CMA 



2274 

3022 


DCA 

DATA2 


2275 

1021 


TAD 

DATA! 

/GET TESf DATA2 

2276 

7040 


CMA 


/complement 

2277 

0022 


AND 

DATA2 

/AND WITN COMPLEMENT OF JUMPER MASK 

2300 

3022 


DCA 

DATA2 

/TO GET EXPECTED RESULT 

2301 

1021 


TAD 

DATA1 

/GET TESf DATA 

2302 

4436 


DBCO 


/BIT CLEAR OUTPUT REGISTER 

2303 

7300 


CLA CLL 



2304 

4435 


DBRI 


/READ INPUT REGISTER 

2305 

3023 


DCA 

DATA3 

/SAVE REGISTER DATA 

2306 

1023 


TAD 

DAT A3 

/GET REGISTER DATA 

2307 

7041 


CIA 
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) 

PAL10 


VI4 2 


2310 

1022 

tad 

DAT A2 

2311 

7650 

SNA CLA 


2312 

5317 

JMP 

a +5 

2313 

4443 

JM3 I 

xerror 

2314 

3767 

0UT4E-1 


2315 

3534 

CH3*1 


2316 

7775 

-3 


2317 

4445 

JMS I 

XL00P2 

2320 

5265 

JMP 

IN0U3A 

2321 

2021 

I SI 

DATA! 

2322 

5265 

JMP 

INQU3A 

2323 

4444 

JMS I 

XLOQP1 

2324 

5263 

JMP 

IN0U3*3 


/ 


/compare to expected result 

/ARE THEY THE SAME 

/DATA CORRECT, CONTINUE 

/NO, ERROR 

/'•DBCQ ERROR 15 

/•‘MASK EXPECTED RECEIVED 

/NUMBER OF DATA WORDS 

/TEST FOR LOOP WITH SAME DATA 

/LOOP WltH SAME DATA 

/INCREMENT DATA PATTERN 

/CONTINUE 

/CHECK FOR LOOP QN CURRENT TEST 
/LOOP ON CURRENT TEST 


/WITH THE INPUT REGISTER SET TO ALL IS, DOES SELECTIVELY 
/CLEARING THE OUTPUT REGISTER CLEAR ANY BITS IN THE INPUT 





/REGISTER i EXCEPT 

2325 

3030 

INQIH 8 

f 

DC A 

TYPFLG 

2326 

1176 


TAD 

[*62 

2327 

3031 


DC A 

LPCNT 

2330 

3021 


DC A 

DAT A1 

2331 

4063 

IN0U4A, 

CAF 


2332 

7040 


CM A 


2333 

4 437 


QBSO 


2334 

7300 


CLA CLL 


2335 

1027 


TAD 

fjumpef 

2336 

7040 


CMA 


2337 

0021 


AND 

DATA1 

2340 

7040 


CMA 


2341 

3022 


DC A 

DATA2 

2342 

1021 


TAD 

DATA! 

2343 

4436 


DBCO 


-2344 

7300 


CLA CLL 


2345 

4435 


OBRI 


2346 

3023 


OCA 

DATA3 

2347 

1022 


TAD 

DATA2 

2350 

7041 


CIA 


2351 

1023 


TAD 

DATA3 

2352 

7650 


SNA CLA 


2353 

5360 


JMP 

>5 

2354 

4443 


JMS I 

xerror 

2355 

3767 


0LJT4E-1 


2356 

3534 


DH3<-1 


2357 

7775 


"3 


2360 

4445 


JMS I 

XLQ0P2 

2361 

5331 


JMP 

IN0U4A 

2362 

2021 


132 

DATA1 

2363 

5331 


JMP 

IN0U4A 

2364 

4444 


JMS I 

XLGOP1 

2365 

5330 


JMP 

IN0U4*3 

2366 

5777' 


JMP 

INTI 


2377 2400 

2400 


THOSE NOT FLIPFLQPS) 

/CLEAR ERROR FLAG 
/SET ITERATION COUNT 
/TO 50 (DECIMAL) 

/CLEAR TEST DATA 
/INITIALISE INTERFACE 
/SET AC TO 7777 
/BIT SET OUTPUT REGISTER 

/GET FLIPFLOP JUMPER MASK 

/COMBINE WITH MASK 

/TO GET EXPECTED RESULT 

/GET TESf DATA 

/BIT CLEAR OUTPUT REGISTER 

/READ INPUT REGISTER 
/SAVE REGISTER DATA 
/GET EXPECTED RESULT 

/COMPARE TO RECEIVED DATA 
/ARE THEY THE SAME 
/DATA CORRECT, CONTINUE 
/NO, ERROR 
/ ” D B C 0 ERROR” 

/"MASK EXPECTED RECEIVED” 

/NUMBER OF DATA WORDS 

/TEST FOR LOOP WITH CURRENT DATA 

/LOOP WITH SAME DATA 

/INCREMENT DATA PATTERN 

/CONTINUE 

/CHECK FOR LOOP ON CURRENT TEST 
/LOOP ON CURRENT TEST 
/GO TO NEXT TEST 


PAGE 
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/VERIFY THAT EACH BIT 
/ 


2420 

3030 

INTI, 

DC A 

TYPFLG 

2401 

1176 


TAD 

062 

24?2 

3031 


DCA 

LPCNT 

2423 

3022 


DCA 

DATA2 

2404 

4063 

INT1A. 

CAF 


2405 

1022 


TAD 

DATA2 

2406 

0026 


AND 

I JUMPER 

2427 

7450 


SNA 


2410 

5233 


JMP 

INT1D 

2411 

3021 


DCA 

DAT A1 

2412 

i .021 


TAD 

DATA! 

2413 

4437 


DBSO 


2414 

7300 


CLA CLl 


2415 

4432 


DBEI 


2416 

4076 


SRQ 


2417 

5223 


JMP 

INT1AE 

2420 

4433 


DBSK 


2421 

5240 


JMP 

INT1BE 

2422 

5231 


JMP 

INT10K 

2423 

4433 

INT1AE# 

dbsk 


2424 

5245 


JMP 

INT1CE 

2425 

4443 


JMS I 

XERROR 

2426 

4042 


INTlE^l 


2427 

3515 


DHlal 


2430 

7777 


-1 


2431 

4445 

INT10K, 

JMS I 

XL00F2 

2432 

5204 


JMP 

INT1A 

2433 

2022 

INT1D, 

ISZ 

DATA2 

2434 

5204 


JMP 

INT1A 

2435 

4444 


JMS J 

XL00P1 

2436 

5203 


JMP 

INT1+3 

2437 

5252 


JMP 

l NT3 

2440 

4443 

INT1BE, 

JMS I 

XERROR 

2441 

4065 


. INT3E«1 


2442 

3515 


DH1-1 


2443 

7777 


®1 


2444 

5231 


JMP 

INT10K 

2445 

4443 

INT1CE# 

JMS I 

XERROR 

2446 

4077 


INT4E-1 


2447 

3515 


DH1«1 


2450- 

7777 


“l 


2451 

5231 


JMP 

INT10K 




/ 

/VERIFY 

/ 

DCA 

THAT EA 

2452 

3030 

I NTS s 

TYPFLG 

2453 

1176 


TAD 

Z *62 

2454 

3031 


DCA 

LPCNT 

2455 

3022 


DCA 

DATA2 

2456 

4063 

I NTS A e 

CAF 




PDP8 P 


SET UP TO SKIP DOES 

/CLEAR ERROR FLAG 
/SET ITERATION COUNT 
/TO 52(DECIMAL> 

/INITIALIZE INTERFACE 


/SAVE TEST DATA 

/BIT SET OUTPUT REGISTER 

/ENABLE INTERFACE 
/IS INTERRUPT ACTIVE 
/NOi ERROR 
/IS FLAG SET 
/NO, ERROR 

/INTERRUPT ACTIVE? FLAG SET 
/IS INTERFACE FLAG SET 

/NO# ERROR 


/NUMBER OF WORDS TO BE OUTPUT 

/TEST FOR LOOP ON SAME DATA, ESCAPE ON DATA ERROR 
/LOOP WITH SAME DATA 
/INCREMENT DATA PATTERN 
/CONTINUE 

/CHECK FOR LOOP ON CURRENT YESf 
/LOOP ON CURRENT TEST 
/GO TO NEXT TEST 
/NO? ERROR 


/NUMBER OF WORDS TO BE OUTPUT 
/NO, ERROR 


/NUMBER OF WORDS TO BE OUTPUT 


NOf JUMPERD TO SKIP DOES NOT 

/CLEAR ERROR FLAG 
/SET ITERATION COUNT 
/TO 50 (DECIMAL) 

/CLEAR TEST DATA 
/INITIALIZE INTERFACE 


J 
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PAL10 


VI4 2 


2457 

1026 

TAD 

I JUMPER 

/GET JUMPER MASK 

2460 

7040 

CMA 


/COMPLIMENT FOR NO SKIP BITS 

2461 

0022 

AND 

DATA2 

/GET BITS TO BE TESTED 

2462 

7450 

SNA 


/ARE ANY SITS TO BE TESTED 

2463 

5300 

JMP 

INT3C 

/NO a GET NEXT DATA PATTERN 

2464 

3021 

DC A 

DATA! 

/SAVE FOR OUTPUT 

2465 

1021 

TAD 

DATA1 

/GET TEST DATA 

2466 

4437 

D3S0 


/BIT SET OUTPUT REGISTER 

2467 

7300 

CLA CLL 



2470 

4433 

DBSK 


./IS FLAG SET 

2471 

5276 

JMP 

t +5 

/NC, CONTINUE 

2472 

4443 

JMS I 

XERROR 

/YES a ERROR 

2473 

3674 

IN IT3E 5 ” 

1 

/"SKIP FLAG SET" 

2474 

3515 

QH1-1 


/"REGISTER DATA" 

2475 

7777 

-1 



2476 

4445 

JMS I 

XLQQP2 


2477 

5256 

JMP 

I NT 3 A 


2500 

2022 

INT3C a ISZ 

CAT A2 


2501 

5256 

JMP 

JNT3A 


2502 

4444 

JMS I 

XLOOP1 


2503 

5255 

JMP 

INT3*3 


2504 

5777' 

JMP 

EPASS 



/ 

/ERROR HANDLER 
/ 


2577 

3257 







2600 

PAGE 





2600 

0000 

ERROR* 

3 




2601 

7300 


CLA 

CLL 



2602 

1600 


TAD 

I 

ERROR 

/GET POINTER TO ERROR MESSAGE 

2603 

3234 


DCA 


MESG 

/SAVE POINTER 

2604 

2200 


ISZ 


ERROR 


2605 

1600 


TAD 

I 

ERROR 

/GET POINTER TO DATA HEADER 

2606 

3236 


DCA 


DHDER 

/SAVE HEADER 

2607 

2200 


ISZ 


ERROR 

/number of words TO BE OUTPUT 

2610 

1600 


TAD 

I 

ERROR 

/GET NUMBER OF DATA WORDS TO BE TYPED 

2611 

3264 


DCA 


datcnt 

/SAVE 

2612 

120 0 "* 


TAD 


error 

/GET ADDRESS OF TEST THAT FAILED 

2613 

1377 


TAD 


e*3 


2614 

3776' 


DCA 


LSTDGT 


2615 

1776' 


TAD 


LSTSGT 


2616 

3266 


DCA 


ERRAD 


2617 

7604 


LAS 




2620 

0334 


AND 


SR01 


2621 

7640 


S2A 

CLA 



2622 

5254 


JMP 


ehalt 


2623 

1030 


TAD 


typflg 


2624 

7640. 


S2A 

CLA 



2625 

5241 


JMP 


DATOIJT 


2626 

7040 


CMA 




2627 

3030 


DCA 


Typflg 

/CLEAR ERROR FLAG 

2630 

4775' 


JMS 


octasc 


2631 

4441 


JMS 

I 

xprint 


2632 

3024 


ERADR-1 
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2633 

4441 


JMS I 

XPRINT 

2634 

0000 

MESGj 

3 


2635 

4441 


JMS I 

XPRINT 

2636 

0000 

DHDER, 

0 


2637 

4441 


JMS I 

XPRINT 

2640 

3512 


CRLF^l 


2641 

1264 

DATQUT, 

TAD 

datcnt 

2642 

7650 


SNA CLA 


2643 

5254 


JMP 

EHALT 

2644 

1265 


TAD 

DATAP 

2645 

3010 


DC A 

POINT1 

2646 

1410 

81TS 9 

TAD I 

POINT1 

2647 

4774' 


JMS 

BITOUT 

2650 

2264 


IS2 

DATCNT 

2651 

5246 


JMP 

BITS 

2652 

4441 


JMS I 

xprint 

2653 

3512 


CRLF-1 


2654 

7604 

ehalt, 

LAS 


2655 

0333 


AND 

SR20 

2656 

7640 


S 2 A CLA 


2657 

5262 


JMP 

«+3 

2660 

1266 


TAD 

ERRAD 

2661 

7402 


hlt 


2662 

2200 


ISH 

ERROR 

2663 

5600 


JMP I 

ERROR 

2664 

0000 

DATCNT# 

0 


2665 

0020 

DATAP, 

DATA1-1 


2666 

0000 

ERRAP, 

0 



/TEST Fqf LOOP ON CURRENT TEST 


/ 


2667 

0000 

LOOP1, 

0 



2670 

1030 


TAD 


TYPFLG 

2671 

7650 


SNA 

CLA 


2672 

5277 


JMP 


LP1EXA 

2673 

7604 


LAS 



2674 

3341 


AND 


SR06 

2675 

7640 


S2 A 

CLA 


2676 

5310 


JMP 


LP1EXX-1 

2677 

7604 

LP1EXA# 

LAS 



2700 

0340 


AND 


SR05 

2701 

7640 


S2A 

CLA 


2702 

5305 


JMP 


LP1EXT 

2703 

2031 


IS2 


LPCNT 

2704 

5311 


JMP 


LP1EXX 

2705 

7604 

LP1EXT f 

LAS 



2706 

3335 


AND 


SR 02 

2707 

7650 


SNA 

CLA 


2710 

2267 


ISZ 


LOOP1 

2711 

5667 

LPIEXXp 

JMP 

I 

LOOP1 


/ 

/TEST FOR LOOP ON CURRENT DATA 


/ 

2712 0000 L00P2« 0 

2713 1030 TAG TYPFlG 


/NUMBER OF WORDS TO BE OUTPUT 
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2714 

7650 


SNA CLA 


2715 

5326 


JMP LP2EXT 


2716 

7804 


LAS 


2717 

P341 


AND SR26 


2720 

7650 


SNA CLA 


2721 

5326 


JMP >5 

/DATA CORRECT, CONTINUE 

2722 

1312 


TAD LOOPS 


2723 

1373 


TAD (5 


2724 

3312 


DCA L00P2 


2725 

5712 


JMP I L00P2 


2726 

7604 

IP2EXT a 

LAS 


2727 

0336 


AND SR03 


2730 

7650 


SNA CLA 


2731 

2312 


ISZ L00P2 


2732 

5712 


JMP I L00P2 


2733 

4000 

SR00, 

4 000 


2734 

2000 

SR01s 

2000 


2735 

1000 

SR02« 

1000 


2736 

0400 

SR03 i 

400 


2737 

0200 

SR04 * 

200 


2740 

0100 

SR05 j 

103 


2741 

0040 

3R26 ? 

40 






/ 

/OCTAL 

TO PACKED ASCII 

CONVERSION 

2773 

0005 





2774 

3031 





2775 

3000 





2776 

3027 





2777 

7775 






3000 

PAGE 

/ 



3000 

0000 

CCTASCj 

0 



3001 

7330 


CLA CLL 



3002 

1227 


TAD 

lstdgt 

/GET WORD TO BE CONVERTED 

3003 

4046 


BSW 


/SWAP HALVES* SEPARATE DIGITS 

3004 

4212 


JMS 

split 

/CONVERT MOST SIGNIFICANT 

3305 

3226 


DCA 

mstdgt 

/DIGITS TO ASCII 

3006 

1227 


TAD 

LSTDGT 

/CONVERT LEAST SIGNIFICANT 

3007 

4212 


JMS 

SPLIT 

/DIGITS TO ASCII 

3010 

3227 


DCA 

LSTDGT 


3011 

5600 


JMP I 

OCT ASC 

/RETURN 

3012 

3000 

SPLIT, 

i) 



3013 

0377 


AND 

ill 


3014 

3114 


MQL 



3015 

4115 


MQA 



3016 

7106 


CLL RTL 



3017 

7004 


RAL 



3020 

0376 


AND 

(707 


3021 

4115 


MQA 



3022 

3376 


AND 

(737 


3023 

1375 


TAD 

(6063 


3324 

5612 


JMP I 

split 


3325 

3736 

ERADR, 

TEXT 

/«-? / 


3026 

4040 
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3027 4040 

3330 4000 


/ 

/OUTPUT 12 BIT BINARY WORD 
/ 


3231 

0003 

BITOUT» 

2 




3232 

3114 


MQL 



/SAVE DATA IN MQ 

3033 

1374 


TAO 


(-14 

/SET UP TO OURPUT 

3034 

3020 


DC A 


CNTR5 

/12 BITS 

3235 

4115 

BIT01, 

MQA 



/GET DATA 

3036 

7104 


CLL 

RAL 


/GET MSB INTO LINK 

3037 

3114 


MQL 



/SAVE REST OF WORD 

3040 

1373 


TAD 


("1 

/GET ASCII 1 INTO AC 

3041 

7420 


SNL 




3042 

037-2 


AND 


('*0 

/IS BITsi 

3043 

4442 


JMS 

1 

XTYP.E 

/NO, CHANGE TO ASCII 0 

3044 

2020 


ISZ 


CNTR 1 

/OUTPUT BIT 

3045 

5235 


JMP 


BIT01 

/CONTINUE 

3046 

1371 


TAD 


(240 

/TYPE 2 SPACES 

3047 

4442 


JMS 

I 

XTYPE 

/AFTER LAST BIT HAS BEEN 

3050 

1371 


TAD 


<240 

/OUTPUTTED 

3051 

4442 


JMS 

I 

XTYPE 


3052 

5631 


JMP 

I 

BITOUT 

/RETURN 





/ 

/CHARACTER STRING 

OUfPUT ROUTINE 

3171 

0240 






3172 

0260 






3173 

0261 






3174 

7764 






3175 

6060 






3176 

0707 






3177 

0077 







3200 

PAGE 

/ 




3200 

0000 

PRINT, 

0 




3201 

7300 


CLA 

CLL 



3202 

1600 


TAD 

I 

PRINT 

/GET POINTER TO MESSAGE 

3203 

3010 


OCA 


POINT! 

/SET UP AUTO-INDEX REGISTER 

3204 

2200 


IS 2 


PRINT 

/SET UP RETURN 

3205 

1410 


TAD 

I 

POINT1 

/GET PACKED WORD 

3206 

3114 


MQL 



/SAVE IN MQ 

3207 

4115 


HQ A 



/GET WORD 

3210 

4046 


BSW 



/SWAP HALVES 

3211 

4215 


JMS 


typset 

/DECODE AND OUTPUT 

3212 

4115 


MQA 



/GET WORD 

3213 

4215 


JMS 


TYPSET 

/DECODE AND OUTPUT 

3214 

5235 


JMP 

/ 


PRINT*? 

/CONTINUE 




f 

/UNPACK 

J 

, DECODE, 

OUTPUT 

3215 

0000 

typset, 

f 

0 




3216 

0243 


AND 


K 0 3 7 7 

/MASK UNWANTED BITS 

3217 

7453 


SNA 



/IS AC=0 

3220 

5600 


JMP 

I 

PRINT 

/YES, END OF MESSAGE, EXIT 
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gnosti 
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3221 

1244 


TAD 


M 4 3 

/SUBTRACT 40 

3222 

7510 


SPA 



/IS packed CHARACTER >42 

3223 

5226 


JMP 


a *5-3 

/NO 

3224 

1250 


TAD 


K240 

/YES, CONVERT TO ASCII 

3225 

5241 


JMP 


MTP 

/OUTPUT 

3226 

7001 


I AC 



/ADD 1 TO AC 

3227 

7440 


SZ A 



/IS characters? 

3230 

5233 


JMP 


, -4-3 

/NO # 

3231 

1245 


TAD 


K215 

/GET CODE FOR CARRIAGE RETURN 

3232 

5241 


JMP 


MTP 

/OUTPUT 

3233 

7001 


I AC 



/ADD 1 TO AC 

3234 

7440 


SZA 



/is characters? 

3235 

5240 


JMP 


a +3 

/NO 

3236 

1246 


tad 


K212 

/GET CODE FOR LINE FEED 

3237 

5241 


JMP 


MTP 

/OUTPUT 

3240 

1247 


TAO 


K336 

/PACKED CHARACTER >40, CONVERT TO ASCII 

3241 

4442 

MTP, 

JMS 

I 

XTYPE 

/OUTPUT 

3242 

5615 


JMP 

I 

TYPSET 


3243 

0077 

K0077 a 

77 




3244 

7740 

M40, 

-43 




3245 

0215 

K215 j 

215 




3246 

0212 

K212» 

212 




3247 

0336 

K336, 

336 




3250 

3242 

K240 s 

242 







/OUTPUT 

ONE CHARACTER 

TO TTY 

3251 

3000 

TYPE« 

/ 




3252 

6046 


TLS 



• 

3253 

6041 


TSP 




3254 

5253 


JMP 


a "1 


3255 

7200 


CLA 




3256 

5651 


JMP 

/ 

/ 

/ 

LAS 

I 

TYPE 


3257 

7604 

EPASS, 




3260 

0777' 


AND 


SR34 


3261 

7642 


S2A 

CLA 



3262 

5776' 


JHP 


INIT 1 


3263 

7604 


LAS 




3264 

0775' 


AND 


SR05 


3265 

7640 


SiA 

CLA 



3266 

5272 


JMP 


EPAS 1 


3267 

4441 


JMS 

I 

XPRINT 


3270 

3274 


ME P- 

1 



3271 

5776' 


JMP 


IN1T1 


3272 

1374 

EPAS1, 

TAD 


(207 


3273 

4251 


JMS 


TYPE 


3274 

5776' 


JMP 


' INIT1 


3275 

3736 

ME P, 

TEXT 


/«- $ 0 R / 


3276 

3422 






3277 

3 000 
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-EA DIAGNOSTIC FOR TRADITIONAL PQPB P PAL10 V142 17*JUL*73 

16*19 

PAGE 1*27 




/ 

/teletype MESSAGES 

J 




3374 

0207 

/ 




3375 

2740 





3376 

0400 





3377 

2737 






3400 

PAGE 




3400 

3736 

Ml, TEXT /«-*SET SR FOR DEVICE CODE AND CQNT/ 




3401 

2305 





■ 3402 

2440 





3403 

2322 





3404 

4006 





3405 

1722 





3406 

4004 





3407 

0526 





3410 

1103 





3411 

0540 





3412 

0317 





3413 

3405 





3414 

4301 





3415 

1604 





3416 

4003 





3417 

1716 





3420 

2403 





3421 

3736 

M2. TEXT /«-*SET SR FOR INTERRUPT JUMPERS AND CQNT/ 




3422 

2335 





3423 

2440 





3424 

2322 





3425 

4006 





3426 

1722 





3427 

4011 





3430 

1624 





3431 

0522 





3432 

2225 





3433 

2024 





3434 

4012 





3435 

2515 





3436 

2005 





3437 

2223 





3440 

4001 





3441 

1604 





3442 

4333 





3443 

1716 





3444 

2400 

c. 




3445 

3736 

M2A, TEXT /**SET SWITCHES FOR FLIPFLOP JUMPERS AND CONTINUE/ 




3446 

2305 





3447 

2440. 





3450 

2327 





3451 

1124 





3452 

0310 





3453 

3523 





3454 

4006 





3455 

1722 





3456 

4006 




# 

O 


0 


J 

3 
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) 

PAL 10 


3457 

1411 

3460 

2006 

3461 

1417 

3462 

2040 

3463 

1225 

3464 

1520 

3465 

0522 

3466 

2340 

3467 

0116 

3470 

0440 

3471 

0317 

3472 

1624 

3473 

1116 

3474 

2505 

3475 

0000 

3476 

3736 

3477 

2305 

3500 

2440 

3501 

2322 

3502 

4006 

3503 

1722 

3504 

4022 

3505 

2516 

3506 

4001 

3507 

1604 

3510. 

4003 

3511 

1716 

3512 

2400 

3513 

3736 

3514. 

0000 


3515 

0000 

3516 

3736 

3517 

2205 

3520 

2711 

3521 

2324 

3522 

0522 

3523 

4004 

3524 

2124 

3525 

0100 

3526 

3736 

3527 

0103 

3530 

4003 

3531 

1716 

3532 

2405 

3533 

1624 

3534 

2300 

3535 

3736 

3536 

1501 

3537 

2313 

3540 

4 040 

3541 

4 040 

3542 

404? 


M3. 


CRLF. 


PH3 s 
DH1 f 


DH21 


0 H 3 f 


TEXT /e-?S£T SR FOR RUN AMD CQNT/ 


TEXT 


/+*/ 


/DATA HEADERS 
/ 

<1 

TEXT /**REGI$YEP OAfA/ 


TEXT /**AC CONTENTS/ 


TEXT ^ MASK EXPECTED 


V142 


RECEIVED/ 



/*AIND£C*08*DGDRA-A DR8-*E A DIAGNOSTIC FOR TRADITIONAL PDP8 P 


PAL10 


3543 4040 

3544 4040 

3545 3530 

3546 2005 

3547 0324 

3550 0504 

3551 4343 

3552 4040 

3553 4040 

3554 2205 

3555 3305 

3556 1126 

3557 3504 

3560 0003 

3561 3736 DH4, 

3562 0530 

3563 2005 

3564 0324 

3565 0504 

3566 4040 

3567 4040 

3570 4040 

3571 2205 

3572 0305 

3573 1126 

3574 0504 

3575 00-00 

3576 3736 QH5, 

3577 2205 

3600 0711 

3601 2324 

3602 0522 

3603 4040 

3604 4040 

3605 4040 

3606 4004 

3607 0124 

3610 0140 

3611 1725 

3612 2440 

3613 4040 

3614 4040 

3615 4040 

3616 0401 

3617 2401 

3620 4011 

3621 1600 

3622 3736 QH 6 f 

3623 0103 

3624 4303 

3625 1716 

3626 2405 

3627 1624 

3630 2340 

3631 4040 


TEXT /**EXPECTED RECEIVED/ 


TEXT /*?RE6ISTER DAfA OUT 


TEXT /*tAC CONTENTS DAfA OUT 
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DATA IN/ 


DATA IN/ 



5 

/HAInDeC-08-DGDRA®A DR8 

*EA DIAGNOSTIC 

) 

FOR TRADITIONAL PDP8 P PALIS 

V142 17"JUL*73 16?19 PAGE i«3B ^ 

& 

3632 

4004 




& 

3633 

0124 





3634 

0140 





3635 

1725 





3636 

2440 





3637 

4040 





3640 

4040 





3641 

4040 





3642 

0401 





3643 

2401 





3644 

4011 





3645 

1600 

/ 

/error 

/ 

MESSAGE 



3646 

1725 

INIT1E» TEXT 

/OUTPUT REG NOT CLEARED/ 



3647 

2420 





3650 

2524 





3651 

4022 





3652 

3507 





3653 

4016 





3654 

1724 





3655 

4003 





3656 

1405 





3657 

3122 





3660 

0504 





3661 

0000 





3662 

1116 

INIT2E* TEXT 

/INPUT REG NOT CLEARED/ 



3663 

2025 





3664 

2440 





3665 

2205 





3666 

0740 





3667 

1617 





3670 

2440 





3671 

0314 





3672 

3501 





3673 

2205 





3674 

0400 





3675 

2313 

IN!T3E> TEXT 

/SKIP FLAG SET/ 



3676 

1120 





3677 

4006 





3700 

1401 





3701 

3740 





3702 

2305 





3703 

2400 





3704 

0402 

TRAN1E f TEXT 

/QBRQ DID NOT CLEAR AC/ 



3705 

2217 





3706 

4004 





3707 

1104 





3710 

4016 





3711 

1724 





3712 

4003 





3713 

1405 





3714 

0122 





3715 

4001 










/MAInDeO08"DGDRA«A drs-ea diagnostic 

3716 0300 

3717 0402 ifTRANSE t TEXT 

3720 2211 

3721 4004 

3722 1104 

3723 4016 

3724 1724 

3725 400.3 

3726 1405 

3727 0122 

3730 4001 

3731 0300 

3732 0402 TRAN3E, TEXT 

3733 2317 

3734 4003 

3735 1001 

3736 i607 

3737 0504 

374-0 4001 

3741 0300 

3742 0402 TRAN4E, TEXT 

3743 0317 

3744 4003 

3745 1001 

3746 1607 

3747 S504 

3750 4001 

3751 0300 

3752 0402 TRAN5E# TEXT 

3753 *311 

3754 4003 

3755 1001 

3756 1607 

3757 0504 

3760 4001 

3761 03 m 

3762 0402 QUTlEi TEXT 

3763 2317 

3764 4005 

3765 2222 

3766 1722 

3767 0000 

3770 0402 QUT4E, TEXT 

'3771 0317 

3772 4005 

3773 2222 

3774 1722 

3775 0000 

3776 0402 OUT7E» TEXT 

3777 2217 

4000 4005 

4001 2222 

4002 1722 

40P3 P000 

4004 i‘402 



FOR TRADITIONAL PDP8 P FAL10 V142 
/DBRI DID NOT CLEAR AC/ 


/DBSO CHANGED AC/ 

/OSCO CHANGED AC/ 

/DBCI CHANGED AC/ 

/DBSO ERROR/ 

/DBC 0 ERROR/ 

/D8R0 ERROR/ 


IN2E 


TEXT 


/DBCI ERROR/ 


17wJUL**73 
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/MAIN 


3 


3EC»08«OGDRA«A DR3«£A DIAGNOSTIC FOR TRADITIONAL PDP8 P 


PAL10 


V142 
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4025 

0311 

4026 

4005 

4027 

2222 

4010 

i.722 

4011 

0000 

4012 

1116 

4013 

2025 

4014 

2440 

4015 

2205 

4B16 

0711 

4017 

2324 

4020 

0522 

4021 

4004 

4022 

0124 

4023 

0140 

4024 

0522 

4025 

2217 

4026 

2200 

4027 

1401 

403.0 

2403 

4031 

1040 

4032 

2522 

4033 

2217 

4034 

2200 

4035 

0432 

4036 

2211 

4 0'3 7 

4005 

4040 

2222 

4041 

1722 

4042 

0000 

4043 

1116 

4044 

2405 

4045 

222.2 

4046 

2520 

4047 

2440 

4050 

0103 

4051 

2411 

4 0 52’ 

2605 

4053 

0000 

4054 

1617 

4055 

4011 

4056 

i624 

4057 

0522 

4060 

2225 

4061 

2024 

4062 

5440 

4063 

2313 

4 064 

1120 

4065 

0000 

4066 

1116 

406? 

2405 

4070 

2222 

4071 

2520 

4072 

2454 

4073 ■ 

4016 


IN3E t TEXT /input REGISTER data error/ 


1 N4£« TEXT /LATCH ERROR/ 


IN?Ej text /dbri error/ 


INT1E# TEXT /INTERRUPT ACTIVE/ 


INT2Es TEXT /NO INTERRUPT« SKIP/ 


INT3Es TEXT /INTERRUPT« NO SKIP/ 




PAL10 


/MaI,\DeO 08-DGDRA«A bR8*EA*DIAGN0STlC for TRADITIONAL PDP8 P 

4074 1740 

4075 2313 

40.76 ' 1120 
4077 000? 

4100 1617 INT4E, TEXT /NO INTERRUPT > NO SKIP/ 

4101 4011 

4102 1624 

4103 3522 

4104 2225 

4105 2024 

4106 5440 

4107 1617 

4110 4023 

4111 1311 

4112 2000 

4113 1617 INTSEi TEXT /NO SKIP/ 

4114 4023 

4115 1311 

4116 2000 

4117 2313 INT6E» TEXT /SKIP/ 

4120 H20 

4121 0000 


0176 7716 

0177 0106 



V142 


17»JUL«73 


16519 PAGE 1*33 




> 
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0100 

01000000 

illllill 

10000000 

lillilll 

lillilll 

11113000 

lillilll 

00003030 

uiiuii 

30000300 

iiimu 

00000300 

UUUII 

00000200 

mum 

23002311 

0200 

0320 

illiliU 

illllill 

illllill 

illllill 

illllill 

lillilll 

iiiiiiii 

10300000 

iiiiiiii 

30000000 

iiiiiiii 

00000300 

iiiiiiii 

02000030 

iiiiiui 

00000111 

0403 

0530 

lillilll 

illllill 

illllill 

illllill 

illllill 

illllill 

lillilll 

Illllill 

iiiiiiii 

Iiiiiiii 

Illllill 

iiiiiui 

iiimu 

iiiiiiii 

lillilll 

10000001 

2600 

0703 

illllill 

00000000 

illllill 

O000G000 

Illllill 

00000000 

uiiuii 

00000000 

iiiiiiii 

30000000 

11100330 

00002300 

00300000 

20000000 

00000000 

00002001 

1000 

1100 

Illllill 

Illllill 

illllill 

lillilll 

Illllill 

Illllill 

iiiiiui 

lillilll 

uiiuii 
11110000 

illllill 

00300300 

iiiiiiii 

03000000 

iiiiiiii 

00000001 

1200 

1300 

Illllill 

Illllill 

illllill 

illllill 

Illllill 

iiimu 

mini! 

iiuiiii 

11111111 

Illllill 

iiimu 

00000000 

uiiuii 

00300000 

mmu 

00003001 

1400' 

1500 

Illllill 

Illllill 

illllill 

11110000 

iiiiiui 

00300000 

lillilll 

22000030 

uiiuii 

30330030 

illllill 

00000330 

uiiuii 

03000020 

uiiuii 

20000001 

1600 

1700 

Illllill 

illllill 

iiiiiui 

muni 

Illllill 

illllill 

Illllill 

1111110® 

uiiuii 

00030000 

ilium 

00000000 

Illllill 

00000000 

UIIUII 

00000031 

2300 

2100 

illllill 

illllill 

iiiiiui 

11111110 

illllill 

00000300 

Illllill 

30100030 

Illllill 

70300000 

lillilll 

L0000000 

ilium 

00000300 

illllill 

00000001 

2200 

2300 

illllill 

illllill 

mum 

iiimu 

Illllill 

Illllill 

UHUli 

uiiuii 

lillilll 

iiiiiiii 

iiiiiiii 

iiiiiui 

iiiiiiii 

U111U0 

lillilll 

00000001 

2400 

2500 

illllill 

11111000 

muni 

00000000 

illllill 

00300030 

lillilll 

3 0 0 0 £ 0 0 0 

uuuii 

30000030 

iiimu 

00000000 

iiiiiiii 

00200000 

ilium 

00000021 

2600 

2700 

Illllill 

Illllill 

illllill 

lillilll 

Illllill 

muni 

uiiuii 

illllill 

mum 

11300000 

illllill 

0000000® 

iiiiiui 

00000030 

11111111 

00011111 

3000 

3100 

Illllill 

00000000 

iiimu 

00003030 

iiiiiui 

00303000 

illllill 
03 "’03030 

11111111 

20300000 

11100030 

00002000 

00200000 

00000200 

00000000 

21111111 

3200 

3300 

Illllill 

00300000 

illllill 

00030000 

Illllill 
00000000 _ 

lillilll 

30003000 

mum 

00030000 

lillilll 

00000020 

illllill 

00030030 

iiimu 

20001111 

3400 

3500 

Illllill 

Illllill 

Illllill 

lillilll 

lillilll 

iiimu 

illllill 

li? mu 

mum 

iiiiiiii 

iiimu 

iiimu 

UUUII 

Illllill 

11111111 

Illllill 

3 603 
3700 

lillilll 

1111.1111 

illllill 

illllill 

illllill 

iiiiiui 

uiiuii 

uiiuii 

uiiuii 

uuuii 

iiiiiiii 

illllill 

Illllill 

Illllill 

UUUII 

lillilll 
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4000 iiniiii liiiiiii limiii liiiim uiiiiii iliiiiii ilium iiiimi 

4100 31111ill illlilll 11000000 00000000 0000000? 00000000 00000000 00000000 

4200 

4300 


4 400 
.4500 

4600 

4700 


5000 

5102 

5200 

5300. 

5400 

5500 

5600 

5700 


6000 

6100 

6200 

6300 

6400 

6500 

6600 

6700 


7000 

7100 

7202 

7300 

7400 

7500 

7600 

7700 
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81 T0i 

3035 

IN 2 

1434 

K212 

3246 

SR00 

2733 

BITOUT 

3031 

IN2E 

4004 

K215 

3245 

SR01 

2734 

BITS 

2646 

IN3 

1462 

K24g 

3250 

SR02 

2735 

BSW 

4046 

IN3 A 

1466 

K336 

3247 

SR03 

2736 

CAF 

4063 

I N3E 

4012 

K 7 7 0 0 

0062 

SR04 

2737 

CNTR1 

0020 

IN4E 

4027 

LOOP! 

2667 

SR05 

2740 

CRLF 

3513 

INS 

1630 

L0GP2 

2712 

SR36 

2741 

DATA1 

0021 

IN5 A 

1604 

LP1EXA 

2677 

SRQ 

4076 

DATA2 

3022 

IN5C 

1633 

LP1EXT 

2705 

START1 

0202 

DAT A3 

0023 

IN6 

1637 

LPlEXX 

27il 

START2 

0244 

DATA4 

0024 

IN6A 

1644 

LP2EXT 

2726 

HOT 

0250 

DAT AS 

3025 

IN6C 

1672 

LPCNT 

0031 

f RANI 

0452 

DATAP 

2665 

IN7 

1676 

LSTDGT 

3027 

TRAN1E 

3704 

DATCNT 

2664 

IN7 A 

1702 

Ml 

3400 

TRAN2 

0471 

DATOUT 

2641 

IN7C 

1731 

M2 

3421 

TRAN2E 

3717 

DBCi 

4434 

INS 

2000 

MSA 

3445 

tRAN3 

3510 

QBCIX 

0300 

IN8A 

2005 

M3 

3476 

transe 

3732 

DBCO 

4436 

IN* 

2030 

M4 0 

3244 

TRAN4 

0530 

DBCOX 

0312 

IN9A 

2034 

MEP 

3275 

TRAN4E 

3742 

DBDIX 

0261 

IN9E 

4035 

MESG 

2634 

TRAN5 

0553 

OBEI 

4432 

INIT1 

0400 

MQ 

0114 

fRAN5E 

3752 

DBEIX 

0266 

IN X TIE 

3646 

MOA 

4115 

TRAN6 

0600 

DBRI 

4435 

INITZ 

0416 

MQL 

3114 

TRAN7 

0616 

DBRIX 

0325 

INIT2E 

3662 

MSTDGT 

3026 

tRANB 

3634 

DBRO 

4440 

INIT3 

0435 

HTP 

3241 

TYE1 

0113 

DBRQX 

0324 

INIT3E 

3675 

ootasc 

5000 

TYPE 

3251 

DBSK 

4433 

I'NOUl 

2200 

OUT! 

100.0 

typflg 

3030 

OBSKX 

0273 

INQU1A 

2205 

OUT1E 

5762 

TYPSET 

3215 

DBSO 

4437 

IN0U2 

2230 

0UT2 

1033 

XDBCI 

3034 

DBSQX 

0317 

INOU2A 

2235 

OUT3 

1054 

XDBCQ 

3036 

DH0 

3515 

IN0U3 

2260 

OUTS A 

1060 

XDBEI 

0032 

DH4 

3516 

IN0U3A 

22-65 

OUT 4 

1105 

XDBRI 

0035 

DH2 

3526 

IN0U4 

2325 

0UT4A 

1111 

XDBRO 

0040 

DH3 

3535 

IN0U4A 

2331 

0U74E 

3770 

XQBSK 

3033 

DH4 

3561 

INTI 

2400 

GUTS 

1200 

XD8S0 

8037 

DH5 

3576 

INT1A 

2404 

0UT5A 

1205 

XERRQR 

0043 

0H6 

3622 

INT1AE 

2423 

OUT 6 

1230 

XLOOP1 

0044 

ORDER 

26S6 

INT18E 

2440 

0UT6A 

1234 

XL00P2 

0045 

DIOT 

0260 

INT1CE 

2445 

OUT7 

1262 

XPRINT 

0041 

ehalt 

2654 

INTiD 

2433 

0UT7A 

1266 

XTYPE 

@042 

EPAS1 

3272 

1NT1E 

4043 

0UT7E 

3776 



EPASS 

3257 

INT1QK 

2431 

OUTS 

1315 



ERADR 

3025 

INT2E 

4054 

OUT 8 A 

1322 * 



ERRAD 

2666 

I NTS 

2452 

PNTRi 

0233 



ERROR 

2600 

INT3A 

2456 

POINT! 

0010 



FJUMPE 

3027 

INT3C 

2500 

PRINT 

3200 



IJUMPE 

0026 

INT3E 

4066 

RETURN 

0106 



INI 

1400 

INT4E 

4100 

SIMBSW 

0046 



INIS 

2063 

INT5E 

4113 

SIMCAF 

0063 



IN10A 

2070 

INT6E 

4117 

SIMMQA 

0115 



IN 1A 

1403 

IOTS 

0247 

SI*SRQ 

0076 



I NIB 

. 1420 

K0377 

3243 

SPLIT 

3012 
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